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SUMMARY 


This supplement to the paper entitled ’’Calculation of Nonequilibrium Radiation 
in the Flight Regimes of ^Aeorassisted Orbital Transfer Vehicles," AIAA Paper 84- 
0306 January 1984, contains the listings of the computer code NEQAIR (Nonequilib- 
rium* Air Radiation), its primary input data, and explanation of the user-supplied 
input variables. The user-supplied input variables are the thermodynamic variables 
of air at a given point, i.e., number densities of various chemical species, trans- 
lational temperatures of heavy particles and electrons, and vibrational temperature. 
These thermodynamic variables do not necessarily have to be in thermodynamic equi- 
librium. The program calculates emission and absorption characteristics of air 
under these given conditions. 


INTRODUCTION 

Radiative properties of gases at high temperatures have been studied over the 
past several decades. Such studies culminated in the development of a computer code 
titled "A Computer Program for a Line-by-line Calculation of Spectra From Diatomic 
Molecules and Atoms Assuming a Voigt Line Profile" (ref. 1). The computer code in 
reference 1 accepts thermodynamic properties of the gas under study, such as number 
densities of chemical species, translational temperatures of both heavy particles 
and electrons, and rotational and vibrational temperatures of the molecules, and 
calculates spectrally detailed radiative properties. 

Reference 1 has a serious limitation, however. The thermodynamic properties 
must satisfy the equilibrium relationships. In a low-density environment, as 
encountered at high altitudes, equilibrium relationship j may be violated; that is, a 
nonequilibrium condition may exist. Such would be the case for the flight regime o 
the proposed Aeroassisted Orbital Transfer Vehicles (ref. 2). For such low-density 
regimes, therefore, an additional technique must be developed that would replace the 
equilibrium relationship. Such a technique has been developed in reference 2. The 
technique is based on the concept of quasi-steady-state distribution (ref. 2) of 
thermodynamic properties, which replaces the equilibrium relationship. Reference 2 
describes the technique in detail, and presents typical results of the calculations. 

Since reference 1 presents the complete listing of the code for the equilibrium 
case, and since reference 2 is an extension of reference 1 for the low-density 
nonequilibrium regime, the entire code is published herein to serve as an update to 
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the code in reference 1. All technical details and nomenclature contained in this 
code are given in referent es 1 and 2. 


2 



SECTION 1. CALL STATEMENT 


This subroutine is entered by the statement: 

CALL NEQAI R ( NMETH , NFIN 1 , NF I N2 , NFOUT , NPRT 1 , NPRT2 , NERR , N ARRAY , NS A VE , WAVELS , WAVELL , 
STARK , WIDTHF , D , UVX , UVC , SMF , ESCF , T , TV , TE , TARB , ANTOT , FN , FNP , FO , FOP , FNE , FN2P , FN2 , FNO , 
F02 , FCN , FC , WAVEL , EMIS , ABSB , TOTPWR , AN ) 

The definition of the arguments is given as comments in the subroutine NEQAIR, and 
is reproduced below: 

(InputParameters) : 

NMETH=Calculating method. 0=no radiation calculation. 1 remitted power only 
calculated. 2=emitted power and spectra calculated. 

NFIN1=Unit number of excitation data input file. 

NFIN2=Unit number of radiation data input file. 

NFOUT=Unit number of output file. 

NPRT1=Print control for input data. 0=no print. 1=small print. 2=large 
print. 

NPRT2=Print control for output print. 0=no print. 1=small print. 2=large 
print. 

NERR=Unit number of error message file. 

NARRAY=Length of spectral array. 

NSAVE=Unit number of spectral intensity output file. In this file, the index 
NARRAY and the arrays WAVEL, EMIS, and ABSB are saved in an unformatted form. See 
the subroutine NEQAI R. 

WAVELS=Short wavelength limit, angstrom. 

WAVELL=Long wavelength limit, angstrom. 

STARK=Stark width for molecules at electron density of 1.0E16 cm-3, angstrom. 

WIDTHF=Lorentz width multiplication factor. This factor is multiplied to the 
Lorentz width calculated by the impact approximation to obtain the true Lorentz 
width. 

D=Physical thickness of the equivalent isothermal emitting cylinder for line 
absorption calculation, cm. If D is set equal to zero, absorption is calculated 
using the UVX values given. If D is finite, the UVX values are ignored, and absorp- 
tion is calculated from D assuming a Doppler line profile. 

UVX(3,2)=Ultraviolet line escape factors for the atomic lines of nitrogen 
and oxygen whose lower states are one of the three lowest states of the atoms. 
UVX(I,J)=1.0 means optically thin gas. UVX(I,J)=0.0 means completely self- 
absorbed. The first index refers to the electronic states, counting from the ground 
state. The second index refers to nitrogen and oxygen (1=nitrogen, 2=oxygen). If D 
value given is finite, UVX values are ignored, and absorption is calculated using D 
and assuming a Doppler profile. 

UVC(3,2)=Ultraviolet free-bound continuum escape factors for nitrogen and 
oxygen. UVC(I,J)=1.0 means optically thin. UVC(I,J)=0.0 means completely self- 
absorbed. The indices are the same as for UVX(3,2). 
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SMF(20,2)=Emission strength multiplication factors. The first index refers to 
to the radiating mechanism. The second index refers to atoms and molecules 
(1=atoms, 2=molecules) . The SMF values are multiplied to the oscillator-strength 
(or equivalently to transition probability or transition moment) values assumed in 
the basic radiation data read in as unit NFIN2 . The oscillator-strength values are 
taken: for atomic lines, from reference 3; for atomic continuum, from reference 4; 
for molecular bands of N2+, N2, NO, and 02, from reference 5; for the CN bands, from 
references 6 and 7. The indices refer to: 

(1.1) =atomic nitrogen lines. 

(2. 1 ) =free- bound continuum of nitrogen atom. 

(3. 1 ) =free- free continuum of atomic nitrogen ion. 

(4.1) =atomic oxygen lines. 

(5 . 1 ) =free-bound continuum of oxygen atom. 

(6. 1 ) =free-free continuum of atomic oxygen ion. 

(1.2) =N2+ First Negative band, low vibrational quantum 
number transitions. 

(2.2) =N2+First Negative band, high vibrational quantum 
number transitions. 

(3.2) =N2 First Positive band, low vibrational transitions. 

(4.2) =N2 First Positive band, high vibrational quantum 
number transitions. 

(5.2) =N2 Second Positive band. 

(6.2) =N2 Birge-Hopfield 2 band, low vibrational quantum 
number transitions. 

(7.2) =N2 Birge-Hopfield 2 band, intermediate vibrational 
quantum number transitions. 

(8.2) =N2 Birge-Hopfield 2 band, high vibrational quantum 
number vibrations. 

(9.2) =N0 Beta band, low vibrational quantum number transitions. 

(10.2) =N0 Eeta band, intermediate vibrational quantum 
number transitions. 

( 1 1 .2) =N0 Beta band, high vibrational quantum number transitions. 

( 12.2) =N0 Gamma band, low vibrational quantum number transitions. 

( 1 3 . 2) =N0 Gamma band, high vibrational quantum number transitions. 

(14.2) =02 Schumann-Runge band, low vibrational quantum 
number transitions. 

( 15 . 2) =02 S :humann-Runge band, intermediate vibrational quantum number 

transitions. 

( 16.2) =02 Schumann-Runge band, high vibrational quantum 
number transitions. 

(17. 2) =02 Schumann-Runge band, high vibrational quantum 
number transitions. 

(18.2) =CN Violet band. 

(19.2) =CN Red band, low vibrational quantum number transitions. 

(20.2) =CN Fed band, high vibrational quantum number transitions. 

T=Heavy particle temperature (assumed to be the same as rotational 

temperature), K. 
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TV= Vibrational temperature, K. 

TE=Electron temperature, K. 

TARB= Arbitrarily assumed equilibrium radiation temperature, K. 

ANTOT=Total number density, cm" 3 . 

FN=Mole fraction of N. 

FNP=Mole fraction of N+. 

FO=Mole fraction of 0. 

F0P=Mole fraction of 0+. 

FNE=Mole fraction of free electrons. 

FN2P=Mole fraction of N2+. 

FN2=Mole fraction of N2. 

FN0=Mole fraction of NO. 

F02=Mole fraction of 02. 

FCN=Mole fraction of CN. 

FC=Mole fraction of C. 

(Output Parameters): 

WAVEL( NARRAY ) =Waveleng th , angstrom. The wavelengths are at equal photon-energy 
intervals starting from WAVELS and ending at WAVELL. 

EMIS ( NARRAY ) =Emiss ion coefficient, Watts/(cm 3 -micron-ster radian). 

ABSB ( NARRAY )= Absorption + stimulated emission coefficient, cm" . 

T0TPWR( 3 ) =Total optically thin emitted power. (1)=all wavelengths. (2)=longer 
than 2500 angstrom. (3)=longer than 3500 angstrom, Watts/cm 3 . 

AN(20,2)=Equilibrium-equivalent number density for each radiating mechanism 
corresponding to the given hypothetical equilibrium radiation temperature TARB, 
cm -3 . The first index refers to the radiation mechanism. The second index refers to 
atoms and molecules (1=atoms, 2=molecules) . The indices are identical to those 
for SMF. 
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SECTION 2. SOURCE CODE LISTING 


*DECK TEST 

PROGRAM TEST 
C TESTS PROGRAM NEQA1R 
DIMENSION T0TPWR(3) 

MiETH=2 

NPRT1-1 

NPRT2=1 

NARRAY=20000 

NPLQT=0 

FN=0 .4813 

FNP=3.425E-02 

F0=0 .1788 

FQP=6.204E-03 

FNE=0.O42b9 

FN2P=6.188E-04 

FN2=0.2143 

FNO=0. 03032 

F02=C. 01160 

FCN-1 , OE-10 

FC=I . 0E-10 

ANTOT=8.013E16 

T=18000, 

Pv-14000 . 

TE=12000. 

TARB=9650. 

D=10. 

CALL BUFFER (MiETH ,NPRT1 , NPRT2 , NARRAY , NPLOT , FN , FNP , FO , FOP , FNE , 
i FN2P , FN2 , FNO , F02 ,FCN, FC ,AWTOT ,T,TV ,TE ,TARB , D ,TOTPWR) 

STOP 

END 

*DECK BUFFER 

SUBROUTINE BUFFER ( NMETH , NPRT1 , NPRT2 , NARRAY , NPLOT , FN , FNP , FO , 

1 FOP , FNE , FN2P , FN2 , FNQ , F02 , FCN , FC , ANTOT , T , TV , TE , TARB , D , 

2 TOTPWR) 

C BUFFER SUBROUTINE 

DIMENSION !M(3,2) ,IWC(3,2),SMF(20,2) ,ESCF(5,5,5) ,AN(20,2) , 

1 TOTPWR (3) 

DIMENSION WAVEL( 20000) 

DIMENSION EMI S( 20000) 

DIMENSION ABSBC 20000) 

DATA IWX/l ,0E-3, 1 .0E-2,0 .1,1 .OE-3,1 «0E-2,0 .1/ 

DA T A WC/6*1 ./,WAMELS/2000 ./ ,WWELL/200QO ./ 

DATA SMF/25*! 3*0 9*1 ,, 3*0 ./ 

DATA £SCF/125*1./ 

DATA STARK/0.3/ 

DATA WI DTHF/iO ./ 

DATA NSWE/3/,NFOUT/6/ 

DATA NFINl/l/,NFIN2/2/,NERR/6/ 

CALL NEQAIR(NMETH,NFIN1,NFIN2,NF0UT,NPRT1,NPRT2,NERR, NARRAY, 

1 NSAUE, NAVELS, WAMELL , STARK , WI DTHF , D , WX , WC , SMF , ESCF , T , TV, TE, 

2 TARB. ANTOT,FN, FNP, FO, FOP, FNE, FN2P,FN2, FNO, F02, FCN. FC,MAV£L, 

3 EMI S,ABSB, TOTPWR, AN) 
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c 

C PLOT SPECTRAL EMISSION 

IF(NPLOT.EQ.l) CALL PLOTT ( WAVEL ,EMIS, NARRAY ) 

RETURN 
END 

*DECK PLOTT 

SUBROUTINE PLOTT (WAUEL, EMI S ,NARRAY) 

C THIS IS THE PLOT SUBROUTINE FOR MAX 
DIMENSION WAVEL(1),EM1S(1) 

DIMENSION X(IOOO) ,Y(1000) 

DIMENSION XX(3),YY(3) 

DATA ITIME/0/ 

READ(5,1) NAV , IX ,XL , YL ,XCYCLE , YCYCLE , WS , WL , WSTEP 

1 FORMAT(215,7E10.3) 

WRITE (9 , 2)NAV, IX , XL ,YL ,XCYCLE YCYCLE ,WS , WL , WSTEP 

2 FORMAT (/ 

1 40H NAV(AVERAGING NUMBER) =,13/ 

2 40H IX(i=LINEAR, 2=L0G FOR X COORDINATE) =,12/ 

3 40H XL (LENGTH OF X RANGE, INCHES) =,F7.3/ 

4 40H YL( LENGTH OF Y RANGE, INCHES) =,F7.3/ 

X 40H XCYCLE ( LOG CYCLE FOR X) =,F6.0/ 

5 40H YCYCLE(LOG CYCLE FOR Y) =,F6.0/ 

6 40H WS( SHORTEST WAVELENGTH, A) =,F8.G/ 

7 40H WL( LONGEST WAVELENGTH, A) =,F8.0/ 

8 40H WSTEP (WAVELENGTH STEP, A) =,F8.0) 

r 

W 

C PRODUCE AVERAGE SPECTRUM 

N=FLQAT(NARRAY)/FLOAT(NAV) 

IF(N.GT.IOOO) N=1C00 

IF(N.EQ.IOOO) NAV=FLQAT (NARRAY) /FLOAT (N) 
NSTEP=Q.G01*NARRAY 
I F (NSTEP . LT . 1 )NSTEP=1 
1=0 

NEND=NARRAY-0 .55*NAV 
DO 3 M=NAV,NEND, NSTEP 
1 = 1+1 

IF(I.GT.IOOO) GO TO 3 
IMAX=I 

Ml=M-0.5m' 

M2=M1+NAV-1 

IF(M2.GT .NARRAY) GO TO 3 
Y(I)=Q. 

DO 4 IM=M1 ,M2 
4 Y(1)=Y(I)+EMIS(IM) 

Y( I )=Y( I )/FLOAT (NAV) 

X(I)=WAVEL(M) 

3 CONTINUE 
IMAX=IMAX-1 
C 

C PICK THE MAXIMUM OF Y(I) 

YMAX=0. 

D0 5I=l,imX 
YMAX=AMAXi ( YMAX ,Y ( I ) ) 


■OHlGMAL pfi 

OF ’ 
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Quality 


8 



5 CONTINUE 0%'GmA L p"r-> 

INDMAX=INT(ALOG10(YMAX))+1 Of- p QQ R 

YMAX1=10.**IN0MAX vUMuTY 

YMINI -YMAX1/10 ,*+YCYCLE 

WRITE(3,7) YHIN1 ,YMAX1 

7 F0RMAT(1X6HYMIN= ,1PE10.3,2X,6HYWX= ,E10.3) 

C 

C PUT THE MINIMUM MALUE 
DO 26 I=1,IMAX 
I F ( Y ( I ) . LT . YMINI ) Y ( I ) =YM I N1 
28 CONTINUE 
C 

C CONVERT TO LOG 
DO 12 1=1, IMAX 
Y(I)=ALOG10(Y(I)/YMIN1) 

12 CONTINUE 
C 

C REARRANGE X-COORDINATE FOR LOG-LOG PLOT 
IF(IX.EQ.i) GO TO 10 
DO 9 1=1 ,IMAX 
X( I }=ALOG10 (X( I )/1500 . ) 

3 CONTINUE 
10 CONTINUE 

C 

C PLOT 

IF(ITIME.NE.O) GO TO 6 
CALL DI P( 9 , 10HNEQAI R . PLT ,10) 

CALL RESET ('ALL') 

ITIME=1 

6 CONTINUE 

CALL AREA2D(XL,YL) 

IF(IX.EQ.l) CALL GRAF (NS , WSTEP , WL , 0 . , 1 . ,5.) 

IF(IX.EQ.2) CALL GRAF(0. ,0.2,1.0,0. ,1. ,5.) 

C 

C DRAW AXES 
XX(1)4JS 
XX(2)=WL 
YY ( 1 ) =0 . 

YY(2)=0. 

CALL CURVE(XX,YY,2,Q> 

XX(1)=WS 

XX(2)=NS 

YY(1)=0. 

YY(2)=5. 

CALL CURVE ( XX , YY ,2,0) 

r 

w 

CALL CURVE (X,Y,IMAX,0) 

WRITER, 8) 1MAX 

8 FORMAT C2X,5H1MAX=, 15) 

CALL ENDPL(O) 

CALL DONEPL 

RETURN 

END 



*DECK NEQAIR 

C THIS IS THE BEGINNING OF THE MODULE NUMBER 1 
C THIS MODULE CONTAINS THE FOLLOWING SUBROUTINES 
C NEQAIR 

SUBROUTINE NEQAIR(NMETH,NFIN1 ,NFIN2,NF0UT,NPRT1 ,NPRT2,NERR,NARRAY 
i , NSAVE , WAVELS , WAVELL , STARK , W I DTHF , D , UVX , WC , SMF , ESCF ,T ,TV , TE , 

2 TARB,ANT0T,FN,FNP,F0,FQP,FNE,FN2P,FN2,FN0,F02,FCN,FC,WAVEL, 

3 EMIS,ABSB,TOTPWR,AN) 

n 

C CALCULATES NONEQUILIBRIUM RADIATION FROM AIR 
C 

C INPUT PARAMETERS 

C NMETH=CALCULATING METHOD. 0=NO RADIATION. REMITTED POWER ONLY 

C 2=EMITTED POWER + SPECTRA 

C NFIN1=UNIT NO. OF EXCITATION DATA 

C NFIN2=(JNIT NO. OF RADIATION DATA 

C NFOUT =UNIT NO. OF OUTPUT PRINTS 

C NPRT1=PRINT CONTROL FOR INPUT DATA. 0=NO PRINT. l=SmLL PRINT 

C 2=LARGE PRINT 

C NPRT2=PR1NT CONTROL r OR OUTPUT PRINT. 0=N0 PRINT. 1=SMLL PRINT 
C 2=LARGE PRINT 

C NERR=UNIT NO. OF ERROR MESSAGES 

C NARRAY=LENGTH OF SPECTRAL ARRAY 

C NSAVE=UNIT NO. OF SPECTRAL OUTPUT 

C WAVELS=SHORT WAVELENGTH LIMIT, ANGSTROM 

C WAVELL -LONG WAVELENGTH LIMIT, ANGSTROM 

C STARK-STARK WIDTH FOR MOLECULES, ANGSTROM 

C WIDTHF=LORENTZ WIDTH MULTIPLICATION FACTOR 

C D r PHYSICAL DEPTH, CM 

C IMX(3,2)=U.V. LINE ESCAPE FACTORS FOR ATCMS 

C UVC(3,2)=U.V. CONTINUUM ESCAPE FACTORS FOR ATOMS 

C SMF(20,2)=EMISSION STRENGTH MULTIPLICATION FACTORS 

C ESCF (5,5,5) =MQLECULAR RADIATION ESCAPE FACTORS 

C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE 
C TV=VIBRATIONAL TEMPERATURE 

C TE=ELECTR0N TEMPERATURE 

C TARB=ARBITRARY EQUILIBRIUM RADIATION TEMPERATURE 

C ANTOT=TGTAL NUMBER DENSITY, CM-3 

C FN=MOLE FRACTION OF N 

C FNP=MQLE FRACTION OF N+ 

C FO=MOLE FRACTION OF 0 

C FQP=MOLE FRACTION OF 0+ 

C FNE=MOLE FRACTION OF E- 

C FN2P=M0LE FRACTION OF N2+ 

C FN2=M0LE FRACTION OF N2 

C FN0=MQLE FRCTIGN OF NO 

C FQ2=M0LE FRACTION OF 02 

C FCN=MQLE FRACTION OF CN 

C FC=MOLE FRACTION OF C 

C OUTPUT PARAMETERS 

C WAVEL ( NARRAY ) =WAVELENGTH , WGSTRQM 

C EMIS(NARRAY) s EMISSION COEFFICIENT, W/(CM3-MICR0N-SR) 

C ABSB ( NARRAY ) =ABSORPT I ON + STIMULATED EMISSION COEFFICIENT, CM-1 

C T0TPWR(3)=EMITTED POWER. (i)=ALL WAVELENGTH. (2)=AB0VE 2500 A, 

C (3)=AB0VE 3500 A. IN W/CM3 
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OE POOR QUALITY 

C AN(20,2)=EQUILIBR1UM-EQUIVALEKT NUMBER DENSITY FOR EACH 
C SPECTRAL SYSTEM, 'CM-3 

REAL N , NP , NE , N2P , N2 , NO 

DIMENSION UVX(3,2) ,IM;(3,2),SMF(2G,2),ESCF(5,5,5) , T OTPWR ( 3 ) 

1 , RHO( 23,2) ,TEXA(2) ,TEXM(5,5) ,TEXM1(2Q) ,FACTAM(2) , 

2 FACTRN(2G) ,AN(20,2) 

DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

DATA M/14. 007/, WP/14. 007/, WO/16./, WOP/16./, W2P/28. 014/, . 

1 WN2/28 . 014/ ,WNO/30 .007/ , W02/32 ./ , WCN/26 .02/ , WE/5 . 5E-4/ , 

2 MC/12.01/ 

C 

C NORMALIZE FRACTIONS 

FT0T=FN4 , FNP+F0+F0P+FN2P+FN2+FNE+FNO+F02+FCN+F C 

FN=FN/FT0T 

FNP=FNP/FTOT 

F0=F0/FT0T 

FOP=FOP/FTOT 

FN2P=FN2P/FTGT 

FN2=FN2/FT0T 

FNE=FNE/FTOT 

FN0=FN0/FT0T 

F02=F02/FT0T 

FCN=FCN/FTOT 

FOFC/FTOT 


C 

C CYCLE OVER TOTAL NUMBER DENSITY ANTOT 
N=ANTOT*FN 
NP=ANT0T*FNP 
0=ANT0T*F0 
0P=AN70T*F0P 
NE=ANTOT*FNE 
N2P=ANT0T*FN2P 
N2=ANTQT*FN2 
NO=ANTOT*FNO 
02=ANTOT*F02 
CN=ANTOT+FCN 
C=ANTQT*FC 

r 

C CALCULATE THERMODYNAMIC CONDITIONS 
P=ANT0T*1.3805E-16*T 
PATM=P/1 .0133E6 

DENS4WW+NWNP+OW040P^GP4NE^E4N2P^2P+N2^2+NQ*MNO 
1 +02*W02+CN*WCNfC*WC 
DENS=DENS*1.66E-24 
EN=7,82E-12*N 
ENP=3.11E-li*NP 
E0=4,10E“12*0 
EGP=2.59E-11*0P 
ENE=C. 

EN2P=2.496E-il*N2P 

EN2=0. 
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ENO=3.00E-12*NO 

ECN=0. 

EC=0 . 

E02=Q . 

ETA=2.5*1 .38E-16*(N4NP+0f0P+C)*T 
ETM=3 . 5*1 . 38E-1 6* (N2P+N2+NDfCm02)*T 
ENE=2.5*1.38E-16*NE*TE 
EV=1 . 38E-1 6* (N2P+N2+N0+02+ CN)*TV 
ETOT=EhH-ENP+EOfEOP+ENE+EN2PIEN2+ENCH’E02+EChH-EC 
1 +ETAFETM+ENE+EV 
ENTH=ETOT/DEN$ 

IF(NPRT2.GT.O) WRITE(NF0UT,11) PATH, DENS, ENTH 
11 F0RMAT(/10H PRESSURE 2 , 1PE10 .3, 4H ATM , 3X , 8HDENSITY= , ElO . 3 , 

1 6H 6/CM3,3X,9HENTHALPY s ,E10.3,6H ERG/6) 

C 

C CALCULATE EXCITATION 

CALL EXCT(N,NP,0,0P,NE,N2P,N2,N0,02,CN,C,T,TV,TE,TARB,Uv»X, 

1 UVC,ESCF , D ,NFIN1 ,NFOUT ,NPRT1 ,NPRT2 f NERR ,RHO,TEXA ,TEXM, 

2 TEXM1 , FACTAM , FACTRN) 

C 

C CALCULATE THE EQUILIBRIUM-EQUIVALENT NUMBER DENSITIES 
AN(1,1)=N*FACTAM(1) 

AN(2,1)=N 

AN(3,1)=NP 

AN(4,1)=0*FACTAM(2) 

AN(5,1)=0 

AN(6,i)=0P 

AN( 1 , 2) =N2P*FACTRN( 1 ) 

AN( 2 , 2 ) =N2P*FACTRN( 2 ) 

AN(3,2)=N2*FACTRN(3) 

AN( 4 , 2) =N2*FACTRN( 4) 

AN( 5 , 2) =N2*FACTRN( 5) 

AN(6,2)=N2*FACTRN(6) 

AN(7,2) 2 N2*FACTRN(7) 

AN(8,2)=N2*FACTRN(8) 

AN( 9 , 2 ) =N2*FACTRN( 9) 

AN(10,2)=NO*FACTRN(10) 

AN(11 ,2) =NO*FACTRN ( 11 ) 

AN( 12 , 2) =NO*FACTRN( 1 2) 

AN(13,2)=N0*FACTRN(13) 

AN(14,2)=02*FACTRN(14) 

AN( 15 , 2) =Q2*FACTRN( 15) 

AN(16,2)=D2*FACTRN(16) 

AN(17,2} 2 02*FACTRN(17) 

AN(18,2)=CN*FACTRN(18) 

AN( 19 , 2) =CN*FACTRN( 19) 

AN( 20 , 2 ) =CN*FACTRN ( 20 ) 

C 

C CALCULATE RADIATION 

IF(NMETH.GT.O) CALL RADCAL(N,NP,0,OP,N2,N2P,O2,NO,CN,NE,T, 

1 TV ,TE ,TEXM1 , PATH , RHO, DENS , SMF , WI DTHF , STARK , HAVELS ,WWELL , 

2 NARRAY,NFIN2,NF0UT,NPRT1 ,NPRT2,NERR,NMETH, HAVEL, EMIS, 

3 ABSB,TOTPWR) 
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c 

C SAVE SPECTRAL OUTPUT 

IFfNSAUE . GT . 0 ) WRIT£(NSAVE)NARRAY ,IWEL,EM! S ,ABSB 

RETURN 

END 

*DECK EXCT 

C THIS IS THE BEGINNING OF THE MODULE NUMBER 2 
C THIS MODULE CONTAINS THE FOLLOWING SUBROUTINES 
C EXCT , EXCTAM , ARBI TA , ESCAL , GBAR , ATOMIN , QSS ,MI W , EONE , MOLI N , 

C MOLEXT , QSSM ,MINU1 ,AR8IT , EXCTML , GAMI , GAMC , AI 3 , SIMP , ELECD , 

C CROSAB,EQC,PARTM, TAINT, RATED 

SUBROUTINE EXCT(N,NP,0,0P,NE,N2P,N2,N0,02,CN,C,T,TV, 

1 TE ,TARB , WX , IWC ,ESCF , D ,NFIN ,NFOUT ,NPRT1 ,NPRT2 ,NFERR , 

2 RHO ,TEXA ,TEXM , TEXM1 , FACTAM , FACTRN) 

C THIS IS THE CONTROLLING SUBROUTINE FOR CALCULATION OF NONEQUILIBRILM 
C EXCITATION OF ATOMS WD MOLECULES 
C N, 0, N2+, N2, NO, 02, AND CN ARE CONSIDERED 
C USES QUASI -STEADY-STATE ASSUMPTION 
C CHUL PARK, OCTOBER 1983 
C 

C INPUT PARAMETERS 

C N=NUMBER DENSITY OF N ATOMS, CM-3 
C NP=NUMBER DENSITY OF N+ IONS, CM-3 
C 0=NUMBER DENSITY OF 0 ATOMS, CM-3 
C OP=NUMBER DENSITY OF 0+ IONS, CM-3 

C NE=ELECTRON DENSITY, CM-3 

C N2P=NUMBER DENSITY OF N2+ IONS, CM-3 
C N2=NUMBER DENSITY OF N2 MOLECULES, CM-3 

C NO=NUMBER DENSITY OF NO MOLECULES, CM-3 

C 02=NUMBER DENSITY OF 02 MOLECULES, CM-3 

C CN=NUMBER DENSITY OF CN MOLECULES, CM-3 

C C=NIMBER DENSITY OF C ATOMS, CM-3 
C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE 
C TU=VIBRATIOMAL TEMERATURE 

C TE-ELECTRON TEMPERATURE 

C TARB=ARBI TRAR I LY SPECIFIED TEMPERTURE FOR EQUIVALENT EQUILIBRIUM 
C RADIATIVE TRANSFER CALCULATION 

C UVX(JL,ISP)=LINE RADIATION ESCAPE FACTOR FOR THE FIRST 3 
C W LINES OF ATOMS. ISP=1; Nj =2: 0. 

C UVC ( JL , I SP 5 =CONT I NUUM RADIATION ESCAPE FACTOR FOR THE FIRST 

C 3 UV CONTINUA OF ATOMS. I SP=1 : N; =2: 0. 

C ESCF(M,IB)=RADIAT!ON ESCAPE FACTOR FOR MOLECULES. 

C M=LEVEL NUMBER. IB=MOLECULE NUMBER (l=N2f, 2»M2, 

C 3=N0, 4=02, 5=CN) 

C D=PHYSICAL DEPTH DIMENSION, CM. NEEDED ONLY WHEN \m AND WC 

C ARE NOT SPECIFIED 

C NFIN=FILE NUMBER OF EXCITATION DATA INPUT 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT1=PRINT CONTROL FOR EXCITATION DATA INPUT 

C 0=NQ PRINT. 1=SMALL PRINT. 2=LARGE PRINT 

C NPRT2=PR I NT CONTROL FOR THERMODYNAMIC DATA INPUT AND OUTPUT 

C 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 

C NFERR=FILE NLWBER OF ERROR MESSAGES 



C OUTPUT PARAMETERS 

C RHO( JL, ISP) 4IONEQUI LIBRIUM POPULATION PARAMETER FOR ATOMS 

C JL=1 TO 22 FOR N. =1 TO 19 FOR 0. 

C TEXA (ISP) =EQU I VALENT EXCITATION TEMPERATURE OF ATOMS 

C TEXM(M, IB)=ELECTRONIC EXCITATION TEMPERATURE OF M-TH ELECTRONIC 
C LEVEL OF IB-TH MOLECULE 

C FACTAM( IB)=EFF£CTIVE DENSITY MULTIPLICATIVE. FACTOR FOR ATOMS 
C FACTRN(JSPEC) EFFECTIVE DENSITY MULTIPLICATIVE FACTOR FOR 

C 20 MOLECULAR SPECTRAL SYSTEMS 

C T£XM1( JSPEC)=SAME AS TEXM, ARRANGED IN THE ORDER OF MOLECULAR 
C SPECTRAL SYSTEMS 

REAL N,NP,NE,N2P,N2,N0 

DIMENSION LIUX(3,2) ,WC(3,2) ,ESCF(5,5,5) ,TEXA(2) ,TEXM(5,5) , 

1 TEXMK20) , FACTAM( 2) , FACTRN( 20 ) ,RH0(23,2) ,^XA(23,2) , 

2 ANXM(5,5) 

DATA I TIME/0/ 

C 

C READ EXCITATION INPUT DATA 
IF(ITIME.NE.O) GO TO 1 
CALL ATOMI N ( NF I N ,NF OUT , NPRT1 ,NFERR) 

CALL MOLIN(NFIN f NFOUT,NPRTl,NFERR) 

ITIME=1 

r 

C CARRY OUT CALCULATION 

1 CALL EXCTAM(N,NP,0,0P,NE,T,TE,TARB,D,IWX,LVC,NF0UT,NPRT2, 

1 NFERR,RHO,ANXA,TEXA,FACTAM) 

CALL M0LEXT(N,NP,O,OP,N2,N2P,02,N0,CN,C,NE,T,TV,TE,TARB, 

1 ESCF ,NFOUT ,NPRT2 ,NFERR , ANXM ,TEXM, FACTRN ,TEXM1 ) 

RETURN 

END 

★DECK EXCTAM 

SUBROUTINE EXCTAM(N,NP,O r OP,NE,T,TE,TARB,D,LWX,lWC,NFOUr, 

1 NPRT ,NFERR , RHO , ANX ,TEX , FACTAM) 

C CALCULATES NONEQUILIBRIUM EXCITATIOIN OF N AND 0 
C INPUT VARIABLES 

C N=NUMBER DENSITY OF N ATOMS, CM-3 
C NP=NUMBER DENSITY OF N+ IONS, CM-3 
C 0=NUMBER DENSITY OF 0 ATOMS, CM-3 

C 0P=NUM8ER DENSITY' OF 0+ IONS, CM-3 

C NE=ELECTRCN DENSITY, CM-3 

C T=HEAVY PARTICLE TEMPERATURE, K 

C TE=ELECTRON TEMPERATURE, K 

C TARB=ARBITRARY TEMPERATURE FOR EQUILIBRIUM RADIATIVE 

C TRANSFER CALCULATION 

C D=PHYSICAL DEPTH DIMENSION, CM 

C UVX(JU,JL,ISP)=LINE RADIATION ESCAPE FACTOR FOR THE LOWEST 3 
C STATES 

C IM(JU,JL,1SP)=C0NTINUUM ESCAPE FACTOR FOR THE LOWEST 3 STATES 
C NFOUT=F!LE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT INDEX. 0=NC PRINT. 1=SMALL PRINT. 2=LARGE PRINT 
C NFERR.=FILE NUMBER OF ERROR MESSAGES 

C OUTPUT PARAMETERS 

C RHO ( JP , I SP ) =NONEQU I L I BR I UM POPULATION PARAMETERE 

C JP=LEVEL NUMBER. I$P=SPECIES NUMBER (1=N, 2=0) 

C ANX C JP , I SP) =NUMBER DENSITY OF JP-TH LEVEL OF ISP-TH ATOM 





OF POOR QUALITY 

C TEX(ISP)=MEAN EFFECTIVE EXCITATION TEMPERATURE 

C FACTAM(ISP)=DENSltY MULTIPLICATIVE FACTOR 

REAL N,NP,NE 

DIMENSION ANX(23,2) ,UMX(3,2) ,WC( 3,2) ,RH0(23,2; , 

1 TEX(2;,FACTAM(2) 

r 

C DETERMINE LINE ESCAPE FACTORS m IF D IS FINITE 
IF(D.GT.l.OE-lQ) CALL ESCAL(N,0,T,TE,D,lWX) 

C 

C DETERMINE NONEQUILIBRIUM POPULATION USING QUASI -STEADY-STATE 
C (QSS) ASSUMPTION 
DO i ISP=1,2 
IF(ISP.EQ.l) AM4=N 
IF(ISP.EQ.l) WP=NP 
IF( ISP.EQ.2) ANN=0 
IF( ISP .EQ.2) ANP-OP 

CALL QSS(ISP JE,NE,ANN,ANP,IWX(1,ISP) ,IM)(1,ISP) ,NFGUT,NPRT, 

> NFERR,RHO(l,ISP) ,ANX(1 , ISP) ) 

1 CONTINUE 
C 

C DETERMINE MEAN EQUIVLENT EXCITATION TEMPERATURE TEX WD EFFECTIVE 
C DENSITY MULTIPLICATIVE FACTOR FACTM 

CALL ARBITA(N, 0 , ANX ,TARB ,NFOUT ,NPRT,NFERR,TEX , FACTAM) 

C 

C WRITE OUT RESULTS 

IF(NPRT.GT.O) WRITE(NF0UT,2) TEX(l) ,FACTAM(i) ,TEX(2) , FACTAM 
1 ( 2 ) 

2 FQRMAT(2?H N: EXCITATION TEMPERATURE= , FIO . 1 , 2X , 

1 31 H DENSITY MULTIPLICATIVE FACTOR= , 1PE10 .3/ 

2 2?H 0; EXCITATION TEMPERATURE= , 0PF1G . 1 , 2X , 

3 31 H DENSITY MULTIPLICATIVE FACT0R=,1PE1Q.3) 

RETURN 

END 

★DECK AREITA 

SUBROUTINE ARBITA(N f O,ANX,TARB,NFOUT,NPRT,NFERR l TEX, FACTAM) 

C CALCULATES MEAN EXCITATION TEMPERATURE TEX m DENSITY FACTOR 
C FACTAM FOR N AND 0 
C INPUT PARAMETERS 
C N=NUMBER DENSITY OF N, CM-3 

C 0=NUMBER DENSITY OF 0, CM-3 

C ANX( JP,I$P)=NUMBR DENSITY OF JP-TH LEVEL OF ISP-TH ATOM 

C TARB=AR3ITRARILY SPECIFIED TEMPERATURE FOR EQUILIEr.IUM RADIATION 

C CALCULATION 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 
C NPRT=PRINT INDEX. 0=N0 PRINT. 1=SMALL PRINT. 2=LARGE PRINT 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C OUTPUT PARAMETERS 

C TEX(ISP)=EFFECTIVE EXCITATION TEMPERATURE, K 

C FACTAM ( I SP)=DENSITY MULTIPLICATIVE FACTOR 

REAL N 

CCftiON/EXCTA/ELEV(23,2) ,STWT(23,2) ,AL{23,23,2) , 

1 HAV(23,23,2) ,EI0N(2) ,EI0NA(2) ,NLEV(2) ,TERM(7,23,2) , 

2 LLEV,GP(4,2) ,EP(4,2) ,AT0MX(2,2) ,CN(23,2) ,M(23,2) 

DIMENSION ANX(23,2) ,TEX(2) ,FACTAM(2) 



ORIGINAL PAGE f S 
DO 1 ISP=1,2 OF POOR QUALITY 

MLEv“NLEJ!’SP; 

MLEvi=MLEV-i 
IFHSP.EQ.i) ANT=N 
IF CSP.E0.2'i AMT =0 


CALCULATE TRUE NGNEQU ! L I Bft I Iti RADIATION POWER IN VISIBLE RANGE 
RAD T =C. 

DO 2 JL=4,MlEVl 
JU1=JL±1 

DO 2 JU=JU2 ,MLEV 

2 RADT =R ADT 'tANX { JU , I SP )*AL ( JU , JL , I SP ) M ELEJ ( JU , 1 SP } -ELEV ( JL , 1 SP ) 


DETERMINE THE LEAST POSSIBLE EXCITATION TEMPERATURE 
TEX(I3P)=i0000C, 

DO 12 K=4 ,MLE?J 

T£XX= - 1 . 4 3S77+ELBy‘( K , I SP ) /ALOG ( ANX ( K , I S?) *STWT (1 , ISP)/ 
1 ( ANX ( 1 , I SP ) * £T«4T (K , ISP) ) } 

TEX (I SP) =AMIN1 (TEX( I SP) ,TEXX) 

12 CGNTTIMUE 


ITERATE OVER TEX 
ITER=0 
T£X1=0 , 

rad=o. 

RADi =0 . 

3 CONTINUE 


CALCUALTE PARTITION FUNCTION FOR TEX 

0 = 0 . 

DO * JP=1 ,MLEV 

0=Q+STWT ( JP , I SP )*EXP( -1 . 43377*ELEV( JP , I 8P)/TEX( ISP)) 
4 CONTINUE 


CALCULATE RADIATION BASED ON ASSUMED TLX 
DO 5 JL=4 f ML?Vi 
JU1=JL+1 

DC 5 JU-JU1 ,MLEV 

I F ( AL : JU , JL , I SP ) . LT . 1 . ) GO TO 5 

RAD=RAD+AL{ JU , JL , I SP)*STWT( JU, I SP)*EXP( -1 . 43S77* 

1 EL JU . I SP) /TEX( I SP) )*ANT* > ELEV( JU , ISP) -ELEV( JL , 

2 !SP))/Q 
0 CONTINUE 

I r (RAD.6T.RADT) GO TO £ 

RAD1=RAD 

TEXI=TEX(!S°) 

TEXCSP)=TEXHSPrl9. 
r JITER. LI. 1300) GO TO 2 
NRITE(NFERR,10)iSF 

10 FORMAT (48H CAN NOT FIND EXCITATION TEMPERATURE FOR SPECIES, 12) 
STOP 

6 TEX (ISP) =TEa1-K TEX { I SP ) -TEX1 ) * ( RADT -RADI ) / ( RAD- RADI ) 
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c 

C DETERMINE DENSITY MULTIPLICATIVE FACTOR 
0*0. 

DO 7 JP=1 ,MLEV 

7 Q=Q+STWT ( JP , I SP)*EXP(-1 . 43877*ELEV( JP , I SP)/TARB) 

RAD=0. 

DO 8 JL=4,MLEV1 
JU1=JL+1 

DO 8 JU=JU1 ,MLEV 

8 RAD=RAD+ANT*AL( JU , JL , I SP)*STWT ( JU, I SP)*EXP( -1 . 43877* 

1 ELEV( JU, ISP)/TARB)*(ELEU( JU, ISP)— ELEV< 

FACTAM(1SP)=RADT/RAD 

1 CONTINUE 
RETURN 
END 

*DECK ESCAL 

SUBROUTINE ESCAL(N,0,T,TE,D,WX) 

C CALCULATE LINE RADIATION ESCAPE FACTORS FOR N AND 0 ASSUMING 
C ISOLATED LINES WITH DOPPLER PROFILE 
C CONSIDERS ONLY THE STRONGEST TRANSITIONS 
C INPUT VARIABLES 

C N=NUMBER DENSITY OF N ATOMS, CM-3 

C (DUMBER DENSITY OF 0 ATOMS, CM-3 

C T=HEAVY PARTICLE TEMPERATURE, K 

C TE=ELECTRON TEMPERATURE, K 

C D=PHYSICAL DEPTH DIMENSION, CM 

C OUTPUT PARAMETERS 

C UVXtJL,IB)=ESCAPE FACTORS FOR THE LINES WITH LOWER STATE 
C JL, FOR IB-TH ATOM 

REAL N 

DIMENSION WAVEL(13) ,6L(13) ,GU(13) ,F(13) ,WX(3,2) ,ELEV(3,2) , 

1 GLEV(3,2) ,ATOM4T(2) ,IND(3,13) ,RADT{3,2) 

DATA WAVEL/1199.55,1200.22, 1200.71, 1492. 62, 1494. 67, 1492. 67, 

1 1742.73,1745.25,1745.26, 1742.72, 1302.17,1408.87,1306.04/ 

DATA GL/4.,4.,4., 6. ,4. ,4., 4. ,2. ,4. ,2., S.,3.,1./ 

DATA GU/6.,4.,2., 4. ,2. ,4., 4. ,2. ,2., 4., 3., 3., 3./ 

DATA F/O. 18, 0.11, 0.059, 0.12,0.984,0.019, . 

1 0.082,0.059,0.015,0.032, 0.031,0.032,0.031/ 

DATA GLEV/' 4. ,10. ,6., 9. ,5.,!./ 

DATA ELEV/0 ., 15228 ., 28840 . , 0 . , 15868 . , 33792 . / 

DATA ATOMWT/14.007,16./ 

C IND(1,L)=UPPER STATE INDEX. (2,L)=LQWER STATE INDEX. U,L)=MOLECULE INDEX 
DATA IND/4, 1,1, 4,1,1, 4,1,1, 5,2,1, 5,2,1, 3,2,1, 

)5,3,1, 5,o,l, 5,3,1, 5,3,1, 5,1,2, 5,1,2, 5,1,2/ 

C 

C PRESET m AND RADT TO ZERO 
DO 2 IB=1,2 
DO 2 JL=1,3 
RADT ( JL , I B ) =0 . 

2 l*JX(JL,IB)=G. 

C 

C CALCULATE 

DC 1 L=l,13 
JU= I ND ( 1 , L ) 

JL=IND(2,L) 
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I B= I ND ( 3 , L ) 

I-CB.EO.i) ANLL=N 

IF' IB.EQ.2) ANLL=Q ur ruuK 

AHl=ANLL*( GL( L )/SLPJ{ 1 , IB) )*EX.P(-1 .438?7*ELEV( JL, IB)/TEj 
DE=! - OES/WAMELC L) 


r«^v ;? 

t i V. 


lf/XX=GBAR >m,D ,AT0MWT (IB), 6l*( L ) , 61 1 L) , F ( JL) , OE ,T ; 
4=0 ,6£7*f G l(L)/SU! ij)*F(L)*1.0E16/WAUEL(L)W 


kAI ' < JL , 1 8; =RA0T (JL, IB)+GU(L)*A 
LfvX( JL ,I3> =UVXX*GU( L)*A+UUX( JL , IB) 
1 CEMTINUE 


BO 3 18=2.2 
DO 3 JL=1,3 

I F ( RAD7 ( JL , 1 8 ) . LT . 1 . 0 E-20 ) GO TO 3 
m ( JL , 1 8 ) -m ( JL , I B ) /RADT ( JL , IB) 

3 CONTINUE 
RETURN 


END 

★DECK GBAR 

FUNCTION GBARiNL ,D,H,8U,GL,F,DE,T) 

C EVALUATES LINE RADIATION ESCPE FACTOR ASSL^JIHG A DOPPLER PROFILE 
I: INPUT PARAMETERS 

C NL=N>JMBER DENSITY OF LOWER STATE. CM-3 

C D=DIAMETER, CM 

C H=ATCf*UC WEIGHT 

C GU=UPPER STATE STATISTICAL WEIGHT 

C 6L=LGWER STATE STATISTICAL WEIGHT 

C F= OSCILLATOR. STRENGTH 

C DE=ENERGY -GAP, CM-1 

C T ^TEMPERATURE , K 

C OUTPUT PARAMETER 
C GEAR ESCAPE FACTOR 

REAL nl,m 

t AU=NL*D*SORT (M/T )*GL*F/( 8 . 60E5*6U*DE) 

IFYTAU.GT .4.0) GO TO 3 

TA!JP = 1.0 

HSIM = 0.0 

Slew = -2.0 

HNFAC = 1.0 


HN = 1.0 

1 TAUP = TAUP*TAU 
SIGN = -1 .DESIGN 
HNFAC = HNFAC+HN 


HTEP. = S ! 6N*T AUP/ ( SQRT ( rfH-i . 0 ) * HNFhC ) 
HSUM = HStM + HTER 
m = 1*4 1.0 
IFOW.LT.15.0) GG TO i 
. GBAR = 1.0-HSUM 
GO TO 2 

3 GBAR = 1 . 0/(TAU*SQRT f 2 . i42*ALGG(7AU) ) ) 

2 RETURN 
END 

★DECK AT EM IN 

SUBROUTINE ATOM I N ( NF IN ,NF OUT , I PRT ,NFERR) 
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C READ IN DATA FOR CALCULATION OF NGNEQUILIBRIUM EXCITATION OF AIR 
C ATOMS: N AND 0 

C ENERGY LEVELS EXTEND TO N=10 
C INPUT PARAMETERS 

C NFIN=FILE NUMBER OF INPUT DATA 
C NFOUT=FILE NUMBER OF OUTPUT PRINT 

C IPRT=PRINT INDEX. 0=N0 PRINT. 1=SMALL PRINT. 2=LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C0W0N/EXCTA/ELEV(23,2) ,STWT(23,2) ,AL(23,23,2) , 

1 HAV(23,23,2) ,EI0N(2) ,EI0NA(2) ,NLEV(2) ,TERM( 7,23, 2) , 

2 LLEV,GP(4,2) ,EP(4,2) ,AT0MX( 2,2) ,CN(23,2) ,AN(23,2) 

C 

C CYCLE OVER TWO SPECIES 
DO 11 ISP=1,2 
C 

C READ IN ENERGY LEVEL DATA 

READ(NFIN,22) ATOMX(l,ISP) ,AT0MX(2, ISP) ,EI0NA( ISP) ,(GP(I ,ISP) , 
1 1=1 ,4) , (EF( I , ISP) ,1=1,4) 

22 FORMAT (IX ,2A4 ,1X ,E10 . 3/8E10 . 3) 
IF(IPRT.NE.O)WRITE(NFOUT,23)ATOMX(1,ISP),ATOMX(2,ISP) ,EI0NA( 

1ISP) ,(GP(1 , ISP) ,1=1,4) ,(EP( I , ISP) ,1=1,4) 

23 FORMAT (//1X,2A4,2X,5HEI0N=,F10 .1 ,5H CM-1/ 

1 5H I0N:,2X,2HG=,4F7.1,2X,2HE=,4F8.1/) 

EDEL=10%73./121. 

EION( ISP)= E I OMA (ISP) -EDEL 
LLEV=3 
C 

C SET COEFFICIENTS TO ZERO 
DO 301JL = 1,23 
DO 302 JU =1,23 
HAV(JL,JU,ISF) = 1.0E-15 
302 AL< JL , JU , I SP) =0 . 

CN(JL,!SP)=0. 

301 AN(JL,ISP)=0. 

C 

C READ IN ENERGY LEVEL DATA 

IF(IPRT.GT.l) WRITE(NF0UT,24) 

24 FORMAT (/32H JP N EL EV STWT ) 

J=0 

1 J=J+1 

R£AD(NF!N,2)M,Mi,ELEV(J,ISP),STWT(J,ISP) ,(TERM(I ,J,ISP) ,1=1,7) 
I F ( I PRT . GT ,1)WRITE(NFQL)T,3) M,M1, ELEV(J,ISP) ,STWT. J,ISP) 

) ,(TERM(I ,J, ISP) ,1=1,7) 

2 F ORMAT (215, 2E10.3,7(A4)) 

3 FORMAT (2I5,F10.0,F10.0 , 7(A4) ) 

IF(STWT( J,ISP) .GT.0.5) GO TO 1 
NLEV(ISP)=J-1 

C 

C READ IN LINE DATA 

IF(IPRT.ST.i) WRITE(NFGUT,6) 

6 FORMAT (/22H JL JU AL(JU,JL) 

J=0 


) 



4 J=J+1 

READ(NFIN,2)JL,JU,AZ 
IF(IPRT.GT.l) WRITE (NFOUT ,5) JL,JU,AZ 
1F( JU.EQ.O) GO TO 18 
AL(JL,JU,ISP) = AZ 
AL(JU,JL,ISP)=AZ 
60 TO 4 

5 FORMAT (2I5,1PE10 .3) 

18 CONTINUE 

r 

C READ IN CONTINUUM DATA 

IF(IPRT.GT.i) WRITE (NF0UT,85) 

85 F ORMAT ( 1 HO , IX , 33HC0NT I NUUM ABSORPTION COEFFICIENTS/) 

M=0 

87 M=M+1 

55 FORMAT (I10,2E10.3) 

READ (NFIN,55) JP,CZ,ANZ 
IF(IPRT.GT.l) WRITE ( NF OUT , 55 ) JF,CZ,ANZ 
IF(JP.EQ.O) GO TO 28 
AN(JP.ISP)=ANZ 
CN(JP,ISP)=CZ 
GO TO 87 
28 CONTINUE 

C 

C READ IN COLLI SI ONAL EXCITATION RATE DATA 
IFUPRT.GT.l) WRITE(NFOUT ,17) 

17 FORMAT (29H COLLISIONAL EXCITATION RATES) 

10 READ(NFIN,7) Jl,Kl f Al,El,J2 J K2,A2,E2,J3,K3,A3,E3,J4,K4 I A4,E4 

7 FORMAT ( 4( 21 3,1PE8 . 1 ,0PF5 .2) ) 

!F(J1) 8,8,9 

9 IF(IPRT.GT.i) 

>WRITE(NFOLIT ,7)J1,K1,A1,E1,J2,K2,A2,E2,J3,K3,A3,E3,J4,K4,A4,E4 
IF(K1.LE.NLEV(ISP)) HAU( J1,K1,ISP) = A1 
IFCKl.LE.NLEV(ISP)) HAU(K1,J1,ISP) = El 
IF(K2.LE.NLEV( ISP) ) MW(J2,K2,ISP) = A2 
IF(K2.LE.NLEV(ISP)) HAM(K2,J2,1SP) = E2 
!F(K3.LE.NIEU(ISP}) HAU( J3.K3, ISP) = A3 
IF(K3.LE.NLEV(ISP)) HW(K3,J3,ISP) = E3 
IF(K4.LE.NLEV(ISP)) HAU( J4,K4 , ISP) = A4 
IF(K4.LE.NLEV(!SP}) HAU(K4,J4,ISP) = E4 
GO TO 10 

8 CONTINUE 

r 

C CONSTRUCT WORKING EXCITATION RATE COEFFICIENTS 
NLEV1 = NLEV(ISP) - 1 
MLEV=NLEV(ISP) 

DO 12 JP = 1,NLEV1 
JQWPrl 

DO 13 JQ=JQ1,MLEV 
IF(JP.EQ.JQ) GO TO 13 
EPX-EI 0N( I SP ) ~ELEM( JP , I SP) 

EQ*EION(ISP)"ELEV(JQ,ISP) 

AP = SQRT( 109679. O/EPX) 

AQ = SORT (1 09679. O/EO) 
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FA = AP**5 * AQ**5 * (1.0/AP**2 - l.D/AQ**2)**4 
HAV(JP,JQ,ISP) =HAU(JP,JQ,ISP) * STVIT(JQ,ISP)/FA 
13 CONTINUE 
12 CONTINUE 
11 CONTINUE 
RETURN 
END 

*DECK QSS 

SUBROUTINE QSS(ISP , TEMP , EDEN ,<WN ,<2WI ON , LWX , WC ,NF0UT ,NPRT , 

1 NFERR,RHO,ANX) 

C CALCULATE NONEQUILIBRIUM POPULATION ASSUMING QUASI -STEADY-STATE 
C 

C INPUT VARIABLES 
C ISP=SPECIES INDEX. 141,2=0 

C TEMP=ELECTRON TEMPERATURE^ 

C EDEN=ELECTRON DENSITY ,CM-3 

c ann=atom density, cm-3 

C ANI0N=IQN DENSITY' , CM-3 

C UVX=U.V. LINE ESCAPE FACTOR, DIMENSIONED 3 
C IWC=U.V. CONTINUUM ESCAPE FACTOR, DIMENSIONED 3 
C NFOUT=FILE NUMBER OF OUTPUT PRINTS 
C NPRT=PRJNT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 
C NFERR=FILE NUMBER OF ERROR MESSAGES 
C OUTPUT ‘VARIABLES 

C RH0=NONEQUI LIBRIUM POPULATION, DIMENSIONED 23 
c anx=number density, dimensioned 23 

C0W0N/EXCTA/ELEV(23,2) ,STVTT (23,2) ,AL( 23,23,2) , 

1 (23,23,2) ,EI0N(2) ,EI0NA(2) ,NLEV(2) ,TERM(7,23,2) , 

2 LLEV,GP(4,2) ,EP(4,2) ,AT0MX(2,2) ,CN(23,2) ,W(23,2) 

DIMENSION APENC23) ,BK(23,2) ,BKPC(23) ,C(23,23) ,RH0(23) ,UVX(3) 

1 ,BKPQ(23,23) ,UVC(3) ,1M.(23) ,ANX(23) 

EXTERNAL EQNE 
C 

C SET NET OPTICAL TRANSITION RATES 
LLEV1=LLEW1 
MLEV4ILEV(ISP) 

DO 25 JQ=1,LLEV 
DO 25 JP=LLEV1,MLEV 

25 AL(JQ,JP,ISP)=UVX(JQ)*AL(JP,JQ,ISP) 

DO 15 JP=1 ,MLEV 

UVL( JP)=1.0 

IF( JP.LE.LLEV) UVL(JP)=UVC(JP) 

15 CONTINUE 
r 

V 

C SET BKPQ TO ZERO 
DO 26 JL=1 ,MLEV 
DO 26 JU=i,MLEV 

26 BKPQ(Jl,JU)=0. 

r 

C SET UP ION PARTITION FUNCTION AND RELATED PARAMETERS 
TEMPI =1 .O/TEMP 
TEMP2=SQRT (TEMPI ) 

TEMP3=TEMP1*TEMP2 
PARTI =0. 

DO 14 JP=1,4 
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1 4 PARTI =PART 1+GP( JP , I SP)*EXP( -1 . 4387?*EP( JP , ISP)*TEMP1 ) 
AZ=2.Q7E-16*AN! 0N*TEMP3/PARTI 

C 

C GENERATE BKPQ FOR UPWARD TRANSITIONS 
MLEV1=MLEV-1 
DO 18 JL=i,MLEVl 
JU1=JL+1 

DO 18 JU=JU1,MLEV 

1 8 BKPO( JL , JU)=HAV( JL , JU , ! SP)* ( 0 . QQ01*TEMP)**HAV( JU , JL , 

> I SP ) *EXP ( -1 . 43877* ( ELEV ( JU , I SP ) -ELEV ( JL , I SP ) )*TEMP1 5 

C CONSTRUCT COEFFICIENTS APEN AND BKF'C ARRAYS 
DC 22 JP = 1,MLEV 
EPX- EIONA(ISP)- ELD; (JP,ISP) 

EKT = 1.43877 *EPX*TEMP1 
APEN( JP) =AZ*$TWT( JP , I SP)*EXP(EKT) 

EKT1 =0.56 + EKT 

SUM = 0.62 * EONE C EKT ) /EKT - 0.534 * EONE ( EKT 1 ) /EKT 1 

22 BKPC(JP) =5.45 * SUM * TEMP3 

C 

C GENERATE BKPQ FOR DOWNARD TRANSITION 
DO 3 JL=1 ,MLEW1 
JUWL+1 

DO 3 JU=JU1,MLEV 

3 BKPQ ( JU , JL ) = ( APEN( JL ) /APEN ( JU ) ) *BKPQ ( JL , JU ) 

C 

C DETERMINE NONEQUILIBRIUM PARAMETER CHI 
ANAEQ=0 . 

DO 23 JP=1,MLEV 

23 ANAEQ=ANAEQ+APEN( JP) 

ANEC=ANAEQ*EDEN 

CHI=ANN/ANEQ 

C 

C CONSTRUCT LHS MATRIX IN QSS EQUATION 
EDENi = 1.0 /EDEN 
do 5 jp = i, mld; 

DO 7 JQ = 1, MLEV 
IF(JP.GT.l) GO TO 8 
C( JP, JQ) = APEN(JQ) 

30 TO 7 

8 IF (JP - JQ ) 2,9,17 

2 C(JP,JQ)=BKPQ (JP,JQ)+APEN(JO)*AL(JP,JQ,ISP)/(APEN(JP)*EDEN) 
GO TO 11 

17 C( JP, JQ) = BKPQ(JP,JQ) 

GC TO 11 

9 C(JP,JQ ) = * BKPC (JP) 

DO 12 JQS = 1 , MLEV 

IF (JQS - JP) 43,12,19 

43 C(JP,JQ)= C{ JP, JQ) -BKPQ (JP, JQS)-AL(JQS,JP,ISP) * EDENi 
GO TO 12 

19 C(JP,JQ)= C( JP, JQ)- BKPQ( JP, JQS) 

12 CONTINUE 

11 CONTINUE 
7 CONTINUE 
5 CONTINUE 
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C NORMALIZE LHS OF OSS EQUATION 0F PGui ‘ A- -- ■ 

DET = 0.0 
DO 10 JP=i ,MLEV 
DO 10 JQ=1 ,MLEV 
10 DET = DET+ ABS(C(JP,JQ)) 

DET = 2.0 *( ALOG(EDEN) - 20.0 )*FLQAT(MLEV*MLEV) * 
1(1.QE4/TEMP)**1.2 /DET 
DO 13 JP=1,MLEV 
DO 13 JQ=1 ,MLEV 
13 C(JP,JQ) = C(JP,JQ) * DET 
C 

C CONSTRUCT RHS OF QSS EQUATION 
BK(1,1) = 0.0 
BK(1 ,2} = DET 
DO 55 JP = 2,MLEV 

BK(JP,1)*-(BKPC(JP)+WL(JP)*CN(JP I ISP)*(0.8001*TEMP)*«N(JP I 
>ISP)/APEN(JP))*DET 
BK(JP,2) = 0.0 
55 CONTINUE 
C 

C SOLVE QSS EQUATION 

CALL MIN; (C, MLEV,BK, 2, DETERM) 

C 

C CONSTRUCT NORMALIZED POPULATION RHO m NUMBER DENSITY ANX 
DO 6 JP=1,MLEV 
BK(JP,2)=BK(JP,2)*ANAEQ 
RHO ( JP ) =BK ( JP , 1 ) +BK ( JP , 2) *CHI 
ANX( JP)=(APEN( JP)*EDEN)*RHO( JP) 

6 CONTINUE 
C 

C WRITE OITT RESULTS 

IFCNPRT.LT.2) RETURN 
WRITE(NFQUT,1) (ATOMXCI , ISP) ,1=1,2) 

1. FORMAT (/IX, 2A4/ 

1 46H JP STWT ELEV RHO TERM ) 

DO 20 JP=i,MLEV 

WRITE(NFQUT,16) JP,STWT(JP, ISP), ELEV( JP, ISP), RHO(JP), (TERM 
1 (I f JP, ISP), 1=1,7) 

16 FORMAT (I5,F10.0,F10.1 ,1PE10 .3, ?(A4) ) 

20 CONTINUE 
RETURN 
END 

+DECK MIW 

SUBROUTINE MINV(A,N,B,M, DETERM) 

C MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 
DIMENSION IPIV0T(23) ,PIV0T(23) ,INDEX(23,2) 

DIMENSION A( 23,23) ,9(23,2) 

EQUIVALENCE (IROW,JROW),(ICOLUM,JCOLUM),(^J,S^P) 

C 

C INITIALIZATION 
10 DETERM=i.O 
15 DO 20 J=1,N 
20 IPIVOT(J)=0 
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30 DO 550 I=1,N 
40 <ViAX=0 .0 

C 

C SEARCH FOR PIVOT ELEMENT 
45 DO 105 J=1,N 
50 IFdPIVOT(J)-l) 60,105,60 
60 DO 100 K=1,N 
70 IF(IPIVOT(K)-l) 80,100,740 
80 IF(ABS(AMAX)-ABS(A(J,K))) 85,100,100 
85 IR0W=J 
90 I COLUM=K 
95 PH AX=A(J,K) 

100 CONTINUE 
105 CONTINUE 

110 I PIVOT ( I COLUM) =1 PI V0T ( I CQLUMHl 
C 

C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 
130 IFdRGW-ICQLUM) 140,260,140 
140 DETERM=-DETERM 
150 DO 200 L=1,N 
160 SWAP=A(1R0W,L) 

170 A( IROW ,L)=A( ICOLlfi ,L) 

200 A( ICOLLfi, L)=SWAP 
205 IF (M) 260,260,210 
210 DO 250 
220 SWAP=B(IROW,L) 

230 BdROW,L)=B(ICOLUM,L) 

250 B(ICOLUM,L)=SWAP 
260 INDEX(I ,1)=IR0W 
270 INDEX( 1 ,2)=I COL'JM 
310 PIVOT (! ) =A(I COLUM , I COLUM) 

320 DETERM=DETERM*PI VOT ( I ) 

C 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT 
330 A( I COLUM, I COLUM) =1 .0 
340 DO 350 L=1,N 

350 A ( I COLUM , L ) =A (I COLUM , L ) /PI VOT ( I ) 

355 IF CM) 380,380,360 
360 DO 370 L=1,M 

370 Bd COLUM, L)-Bd COLUM, L) /PIVOT ( I ) 

r 

C REDUCE NON-PIVDT ROWS 
380 DO 550 Ll=l ,N 
330 IF (LI -ICOLlfi) 400,550,400 
400 T=A(L1,ICQLUM) 

420 A( LI, I COLUM) =0.0 
430 DO 450 L=1,N 

450 A(L1,L)=A(L1,L)-A(IC0LUM,L)*T 
455 IF(M)550,550,460 
460 DO 500 L=1,M 

500 B(L1,L)=B(L1,L)-B(IC0LUM,L)*T 
550 CONTINUE 
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c 

C INTERCHANGE COLUWS 
600 DO 710 I=1,N 
610 L=N+1-I 

620 IF(INDEX(L,1)-INDEX(L,2)) 
630 JROW=INDEX(L,l) 

640 JC0LUM=INDEX(L,2) 

£50 DO 705 K=1,N 
660 SWAP=A(K,JROW) 

670 A( K , JROW) =A( K , JCOLUH) 

700 A(K,JCOLUM)= S^P 
705 CONTINUE 
710 CONTINUE 
740 RETURN 
END 

★DECK EGNE 

FUNCTION EONE(W) 
!F(W,LE.l.) GO TO 1 
Ml = l.O/M 


ORiGh'^AL PA-2.T 
POOR QUALITY 


IB: 


630,710,630 


UP = W**3*(8.57333 +18.05302 *Wl+3. 63476 *Wl**2+0 . 267774 * 
1 Wl**3) 

Dm = W** 3* (9. 57332 +25.632% *M1+21. 09965 *Wl**2+3. 958497 
1 Ml**3) 

EONE = ((H**4 + UP)/(W**4 + D0MN))/(M * EXP(M)) 

GO TO 20 


■k 


1 SUM = -0.577216 +0.999992 *W-0. 249911 *W**2+ 0.0551997 *W**3 
1 -0.00976004 *W**4+0. 00107857 *W**5 
EONE = -AL0G(W) + SUM 
20 CONTINUE 


RETURN 

END 

★DECK MOL IN 


SUBROUTINE MOL I N(NF I N , NFOUT , NPRT ,NFERR ) 

C READS AND DIGESTS MOLECULAR LEVEL DATA 

CQMMCN/EXCTB/AMOL EC ( 3 , 5 ) , LMGLEC ( 4 , 5 ) . SPE C2 ( 8 , 8 , 5 ) , ATOM ( 5 , 2 , 

1 5) , ILST (3,6,5) ,QW(22,28,21) ,EE(8,21) , 

2 ARAD(4,4,5),ED(8,6,5),SIGMD(8,6,5) 

DIMENSION TITLEC20) 


C VARIABLES 

C I 6=BAND INDEX, FROM 1 TO 5 
C AM0LEC(1-2,IB)=NAME OF BAND 

C (3, 1 8) MOLECULAR WEIGHT 

C LMOLEC(l , IB) ^NUMBER OF ELECTRON-IMPACT DISSOCIATION CROSS-SECTION 
C DATA SET. mXIHUH 4 ALLOWED 

C (2,IB)=NUMBER OF ELECTRON- IMPACT EXCITATION CROSS-SECTION 

DATA SET. MXIMIM 6 ALLOWED 
(3, IB)=NIJKBER OF ENERGY LEVELS. MAXIMUM 8 ALLOWED 
C (4, IB)=NUMBER OF FIRST FEW ELECTRONIC LEVELS 

C FOR WHICH QUASI -STEADY-STATE CALCULATION IS MADE 

C MAXIMUM 4 ALLOWED 

C SPEC2C I, J, IB) MOLECULAR CONSTANTS, CM-1 

C (1,J, IB) ^ELECTRONIC DEGENERACY 

C (2,J,IB)=ELECTR0NIC TERM VALUE 
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C (3,J,IB)=WE 

C (4,J,IB)=WEXE 

C (5,J,IB)=WEYE 

C (6,J,IB)=WEZE 

C (?.J,!B)=BE 

C ( 8 , J , I B ) =ALPHA 

C ATOM(I , J , IB) =ATOMS AT DISSOCIATION LIMIT 
C J=l, 2 TWO ATOMS 

C (1-2,J,IB)=NAME 

C :3,J,I8)=AT0MIC WEIGHT 

C ( 4 , J, I B) =DI SSOCIATI ON ENERGY, 01-1 

C (5,J,IB)=STATISTICAL WEIGHT 

C ILST (1-2, IT , IB)=LOWER AND UPPER ELECTRONIC STATE INDEX. 

C (3,IT,IB)=I0RD(THE THIRD DIMENSION IN QW ARRAY) 

C IT=TRANSITICM NUMBER IN A MOLECULE 

C QW ( VI , V2 , 1 QRD ) =FRANCK-CONDQN FACTOR. V1,V2=UPPER MD LOWER 

C STATE. IORD=RUWING ORDER 

C ED( 1-8, IT , IB)=ELECTRGN ENERGY, EV, FOR DISSOCIATION CROSS- 

C SECTIONS 

C SIGMD(l-8, IT, IB) =CROSS-SECT I ONS , CM2, FOR DISSOCIATION 

C EE ( 1 -8 , IT , I B) =ELECTRON ENERGY, EV, FOR EXCITATION CROSS- 

SECTIONS 

SIGHA(l-8, IT , IB) ^CROSS-SECT I ON , CM2, FOR EXCITATION 
C LMIT(1-2,IB)=UNIT OF EE AND SIGMA, A3, (EV OR RYD, CM2 OR 
C PIA02) 

r 

C START CYCLE OVER SPECIES 
I0RD=0 

DO 21 IB=1,5 
C 

C READ MOLECULAR CONSTANTS 

READ(NFIN,22) (AMOLECd , IB) ,1=1,3) ,(LM0LEC(1 , IB) ,1=1,4) 

22 F0RMAT(1X,2A3,3X,F1G.3,6I5) 

IF(NPRT.GT.O) WRITE (NFOUT, 23) (AM0LEC(I,IB),I=1,3),(LM0LEC(I,IB), 

1 1=1,4) 

23 FORMAT (//21H MOLECULAR BAND WflE=,2A3,19H MOLECULAR WEIGHT=,F1C. 

1 3/58H NUMBER OF ELECTRON- IMPACT DISSOCIATION CROSS-SECTION SET=, 

2 I2/58H NUMBER OF ELECTRON- IMPACT EXCITATION CROSS-SECTION SET = , 

> I2/58H NUMBER OF ELECTRONIC LEVELS =, 

> I2/58H NUMBER OF LEVELS IN QUASI -STEADY-STATE CALC. =, 

3 12 /80H DEGEN 

5 TERM WE WEXE WEYE WEZE BE AL 
6PHA ) 

N1=LM0LEC(3,IB) 

IF(Nl.GT.lO) WRITE(NFERR,20) ( AMOLECd, IB), 1=1, 2) ,N1 
20 FORMAT (15H ERROR IN DATA. ,2X,2A3,2X,3W1=,I3) 

DO 26 JN=1 ,N1 

READ(NFIN,6) (SPEC2(I,JN, IB) ,1=1,8) 

6 FORMAT (8E10. 3) 

IF(NPRT.GT.l) WRITE(NF0UT,28) (SPEC2(I ,JN,IB),I=1,8) 

28 FORMAT ( 6F10 .3,F10 .5,1PE10 .3) 

26 CONTINUE 
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C READ THE ATOMIC STATES RESULTING FROM DISSOCIATION 
IF(NPRT.GT.l) WRITECNFOUT, 3) 

3 FORMAT ( /I 8H DISSOCIATED STATE ) 

DO 1 J=l,2 

READCNFIN ,2) (ATQMCI ,J,IB),1=1,5) 

2 FORMAT ( IX T 2A3 , 3X ,7E10 . 3) 

IF(NPRT.GT.l) WRITECNFOUT, 4) (AT0h(I ,J, IB), 1=1,5) 

4 FORMAT ( IX , 2A3 , 3X , 10HAT0M . WT.=,F8.3,2X,15HDISS0C. ENERGY=,F9.G, 

1 5H CM— 1 , 2X , 1 6HST AT I ST I CAL WT.=,F5.1) 

1 CONTINUE 
C 

C SET RADIATIVE TRANSITION PROBABILITIES TO ZERO 
DO 32 1=1,4 
DO 32 J=l,4 

32 ARAD(I, J,IB)=0. 

C 

C READ IN ELECTRON-IMPACT DISSOCIATION CROSS-SECTION DATA 
NDIS=LMQLEC(1,IB) 

IF (ND1S.EQ.0) GO TO 33 
IF(NPRT.GT.l) WRITECNFOUT , 35) 

35 FORMAT (/44H ELECTRON-IMPACT DISSOCIATION CROSS-SECTIONS ) 

DO 34 IDIS=1,NDIS 

READ(NFIN,12) (TITLE(I) ,1=1,20) 

IF(NPRT.GT.l) WRITECNFOUT, 12) (TITLE(I),M,20) 

READ(NFIN,15) (ED(I ,IDIS, IB) ,1=1,8) 

IF(NPRT.GT.l) WRITECNFOUT, 16) (ED(I,IDIS,IB),I=1,8) 

READ(NFIN ,15) (SIGMD(I,IDIS,IB),I=1,8) 

IF(NPRT.GT.l) WRITECNFOUT, 17) (SIGMDC I , IDIS, I B) , 1=1 ,8) 

34 CONTINUE 

33 CONTINUE 
C 

C READ FRANCK-CONDON FACTORS FOR CALCULATING ELECTRON- IMPACT EXCITATION 
C RATES 

NT=LM0LEC(2,IB) 

IF(NT.EQ.O) GOTO 11 
IF(NPRT.GT.l) WRITECNFOUT, 36) 

36 F0RMAT(/26H FRANCK-CONDON FACTOR DATA ) 

DO 5 IT=1,NT 

IORD=IORD+l 

I F ( NPRT . GT . 1 ) WR I TE (NFOUT , 29 ) IORD 
29 FORMAT C6H I0RD=,I3) 

ILST (3, IT , IB)=IORD 
DO IS 1=1,22 
DO 18 J=l,28 
13 QW(i,J,I0RD)=0. 

READCNFIN,?) SPELL1 , SPELL2 , C I LST( I , IT , I B) , I =1 , 2) ,NCARD 

7 F0RMAT(1X,2A3,3X,3I5) 

IF(NPRT.GT.l) WRITECNFOUT, 8)SPELL1,SPELL2,(ILST(I, IT, IB), 1= 

>1,2) ,NCARD 

8 FORMAT ( IX , 2A3 , 3X , 1 2HL0WER STATE= , 1 2 , 2X , 1 2HUPPER STATE=,I2, 

1 3X , 1 6HNUMBER OF CARDS=,I3) 

DO 3 !CARD=1,NCARD 

READCNFIN, 10) J1,J2,F1,J3, J4,F2, J5,J6,F3,J7,J8,F4,J9,J10,F5 
10 FORMAT C5C21 3, E10 .3) ) 
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19 FORMAT (1X,5(2I3,1PE10 .3) ) 

IF((Jl.LT. 2 Q).AND.(J 2 .LT. 28 ))qW(Jl+l,J 2 fl,I 0 RD)=Fl 
IF((J3.LT.20).AND.(J4.LT.28))QW(J3+1,J4+1,IORD)=F2 
IF(( J5.LT.20) ,AND.(J6.LT.28)) QW(J5Pl,J6+l,iORD)=F3 
IF((J7.LT.20).AND.(J8.LT,28)) QW(J7+1,J8+1,IQRD)*F4 
IF(( J9.LT.20) .AND. ( J10 .LT.20) )QW( J9+1 , J10+1 , 10RD)=F5 
IF(NPRT.GT.l) WRITE(NF0UT,19)J1,J2,QW(J1+1,J2+1,I0RD), 

1 J3 , J4 , QW< J3+1 , J4+1 , i ORD) , J5 , J6 , QW( J5fl , Jfrfl , I ORD) , 

2 J7 , J8 , QW( J7+1 , J8+1 , 1 ORD) , J9 , J10 , QW( J9F1 , J1Q+1 , 1 ORD) 

9 CONTINUE 

r- 

U 

C READ ELECTRON-IMPACT EXCITATION CROSS-SECTION DATA 
C CROSS-SECTIONS ARE FOR FRANCK-CONDQN FACTOR OF UNITY 
READ(NFIN,12) (TITLE(I),I=1,20) 

12 FORMAT (20A4) 

IF(NPRT.QT.l) WRITE(NF0UT,12) (TITLE( I) ,1=1,20) 

READ(NFIN,15) (EE(I ,IORD) ,1=1,8) 

15 FORMAT(8E10.3) 

IF(NPRT.GT.l) WRITE(NF0UT,16) (EE(I ,IORD) ,1=1,8) 

16 F0RMAT(17H ELECTRON ENERGY*, 8F10. 2) 

READ(NFIN,15) (SIGMA(1 ,IORD) ,1=1,8) 

IF(NPRT.GT.l) WRITE(NF0UT,17) (SIGMA(I ,I0RD),I=1,8) 

17 FORMAT (17H CROSS SECTION =,1P8E10.3) 

C 

C READ RADIATIVE TWNSITICN PROBABILITY 
ML=I LST ( 1 , IT , I B) 

MU=ILST(2,IT,IB) 

READ(NFIN,15) ARAD(MU,ML,IB) 

IF(NPRT.GT.l) WRITE(NF0UT,30) ARAD(MU,ML,IB) 

30 F0RMAT(34H RADIATIVE TWNSITION PROBABILITY*, 1PE10. 3) 

C 

5 CONTINUE 
C 

11 CONTINUE 
21 CONTINUE 
RETURN 
END 

★DECK MOLEXT 

SUBROUTINE M0LEXT(N,NP,0,0P,N2,N2P,02,N0,CN,C,NE,T,TV,TE,TARB, 
1 ESCF, NFGUT ,NPRT ,NFERR , ANX,TEX , FACTRN ,TEX1 ) 

C CALCULATE NONEQUILIBRIUM EXCITATION OF MOLECULES 
C INPUT PARAMETERS 
C N*NUMBER DENSITY OF N 

C NP=NUMBER DENSITY OF N+ 

C 0=NUMBER DENSITY' OF 0 

C OP=NUMBER DENSITY OF 0+ 

C N2*NUMBER DENSITY OF N2 

C N2P=NUMBER DENSITY OF N2+ 

C 02=NUMBER DENSITY OF 02 

C NO=NUMBER DENSITY OF NO 

C CN=NUMBER DENSITY OF CN 

C=NUMBER DENSITY OF C 
NE=ELECTRQN DENSITY 
C T=HEAVY PARTICLE TRANSLATIONAL WD ROTATIONAL TEMPERATURE 
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C TV=V I BRAT I ONAL TEMPERATURE 

TE=ELECTRON TEMPERATURE 

TARB=ARBITRARY TEMPERATURE FOR EQUILIBRIUM RADIATION CALCULATION 
ESCF(MU,ML,IB)=LINE RADIATION ESCAPE FACTOR, FROM MU TO ML 
C NFDirr=FILE NUMBER OF OUTPUT PRINT 

C NPR7=PRINT INDEX. 0=N0 PRINT. 1=SMALL PRINT. 2=LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 
C OUTPUT PARAMETERS 

C ANX(M,IB)=NUMBER DENSITY OF M-TH ELECTRONIC STATE OF IB-TH MOLECULE 
C TEX ( M , I B ) ^ELECTRON I C EXCITATION TEMPERATURE OF M-TH ELECTRONIC 

C STATE OF IB-TH MOLECULE 

C FACTRN ( JSPEC) =EFFECT I VE DENSITY FACTOR FOR JSPEC-TH SPECTRAL 

C BAND 

REAL N,NP,N2,N2P,N0,NE,M0SUM,M0LF 

C0WON/EXCTB/AMOLEC ( 3,5) ,LMQLEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5),ILST(3,6,5),QW(22,28,21),EE(8,21),SIGMA(8,21), 

2 ARAD(4,4,5) ,ED(8,6,5) ,SIGMD(8,6,5) 

DIMENSION RH0(5) ,ANX( 5,5) ,TEX(5,5) ,FACTRN(20) ,TEX1(20) 

>,ESCF(5,5,5) 

C 

C SUM NUMBER DENSITIES 
ATSUM4HNPFO+OP 
M0SUM=N2+N2P+02+N0+CN 
TTSUM=ATSUM+MOSUM 
ATOMF=ATSUM/TTSUM 
MQLF=MQSUM/TTSUH 
C 

C PRESET VALUES 
DO 1 IB=i,5 
DO 1 M=1 ,5 
TEX(M,IB)=TE 
1 ANX(M,IB)=1.0E10 
DO 3 JSPEC=1 ,20 

3 FACTRN( JSPEC) =1.0 
C 

C N2+ 

C 

C CALCULATE POPULATION USING QSS METHOD FOR LEVELS UP TO 4 

CALL QSSM( 1 ,T ,TV ,TE ,TTSUM , ATQMF ,MOLF ,NE ,N2P ,N ,NP ,ESCF (1,1,1), 

1 NFOUT .NPRT ,NFERR ,RHO,ANX( 1,1) ,TEX(1 ,1 ) ,MLEV) 

C CALCULATE POPULATION OF C 2 SIGMA U+ (UPPER STATE OF SEC'ND NEGATIVE) 

C ASSUMING LOCAL EQUILIBRIUM WITH FREE (ATOMIC) STATE 
AN2PP=(N/EQC( 1,5,T,TV,TE , NFOUT ,NPRT ,NFERR) )*NP 
TERM=SPEC2f2,5,l) 

CTS=PARTQ( 1 ,T ,TV ,TE , NFOUT , NPRT ,NFERR) 

Q2PP=PARTM( 1 , 5 ,T ,TV , 1 . 0E8 , NFOUT ,NPRT,NFERR) 

TEX(5,1)=-1.4 3877*TERK/AL0G ( ( AN2PP/N2P ) * ( QM/ Q2PP ) ) 

ANX(5,1)=AN2PP 

C 

C N2 
C 

C CALCULATE POPULATION USING QSS METHOD FOR LEVELS UP TO 4 

CALL QSSM(2,T,TV,TE,TTSUM,AT0MF,M0LF,NE,N2,N,N,ESCF(1,1,2), 

1 NFOUT, NPRT, NFERR,RHO,ANX(l ,2) ,TEX(1,2) ,MLEV) 
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C CALCULATE POPULATION OF C3 Pl-U (UPPER STATE OF SECOND POSITIVE) 
AN2P=(N/EQC(2 ,5,T,TV,TE ,NFOUT ,NPRT , NFERR) )*N 
CQLF=(N/AN2P)*( 4. 84E-14*N)*SQRT (T)*EXP( -1 . 4388*10259 ./T) 
AN2P-AN2P+C0LF/ ( COLF+3 . 70E7*ESCF (5,3,2)) 

TERM=SPEC2(2,5,2) 

QH=PARTQ( 2 ,T ,TV,TE ,NFOUT ,NPRT ,NFERR) 

Q2P=PARTM( 2 , 5 , T , TV , 1 . GE8 , NFOUT ,NPRT , NFERR) 

TEX(5 ,2) =-1 ,43877*TERM/AL0G( (ttl2P/N2)*(QK/Q2P) ) 

ANX(5,2)=AN2P 

C 

C NO 
C 

C CALCULATE POPULATION USING QSS METHOD 

CALL QSSM( 3 } T , TV ,TE ,TTSUM , ATOMF ,MOLF ,NE ,NQ ,N , 0 , ESCF (1,1,3), 

1 NFOUT, NPRT, NFERR ,RHO,ANX( 1,3) ,TEX(1,3),MLEV) 

C 

C 02 
C 

C CALCULATE POPULATION OF B 3 SIGMA U- (UPPER STATE OF SCHUMAW-RUNGE) 
ANSR=( 0/EQC( 4 , 5,T ,TV ,TE ,NFOUT ,NPRT , NFERR) )*Q 
COLF=(0/ANSR)*(4.53E-14*0)*SQRT(T)*EXP(-1.43877*8098./T) 
ANSR=ANSR*COLF/( COLF+1 , 22E8+ESCF (3,1,4)) 

TERM=SPEC2(2,5,4) 

QM=PARTQ(4,T, TV, TE,NFOUT,NPRT, NFERR) 

QSR=PARTM( 4 , 5 ,T ,TV , 1 . GE8 ,NFOUT ,NPRT , NFERR) 

TEX( 5 , 4 ) =-l . 43877*TERM/AL0G ( ( ANSR/02)*( QM/QSR) ) 

ANX(5,4)=ANSR 

C 

C CN 
C 

C CALCULATE POPULATION USING QSS METHOD 

CALL QSSM(5, T, TV, TE,TTSUM, ATOMF , MOLF , NE , CN , C , N , ESCFC 1 , 1,5), 

1 NFQUT ,NPRT , NFERR, RH0,ANX(1 ,5) ,TEX(1 ,5) ,MLEV) 

C 

C CALCULATE EFFECTIVE DENSITY MULTIPLICATIVE FACTOR FACTRN( JSPEC) 

C FOR ARBITRARILY GIVEN TEMPERATURE TARB 

CALL ARB I T ( T ,TE , TV , TEX , TARB , FACTRN , TEX1 , NF OUT , NPRT , NFERR ) 
IF(NPRT.EQ.O) RETURN 
DO 4 I B=1 ,5 

WRITE(NFQUT ,2) (AM0LEC(I,I3),I=1,2),(ANX(M,IB),M=1,5), 

1 (TEX(M,IB) ,M=1,5) 

2 FORMAT (/IX , 2A3/38H NUMBER DENSITIES OF ELECTRONIC STATE = , 

1 1P5E10.3,4H CM3/ 

2 38H ELECTRONIC EXCITATION TEMPERATURE = ,0P5F10.1,2H K) 

4 CONTINUE 

WRITE(NF0UT,5) (FACTRN( JSPEC) , JSPEC=1 ,20) 

5 F0RMAT(31H DENSITY MULTIPLICATIVE FACTQR= ,1P5E10.3/ 

1 (31X,5E10,3)) 

WRITE(NF0UT,6) (TEX1( JSPEC ),JSPEC=1, 20) 

6 F0RMAT(31H EXCITATION TEMPERATURE = ,5F10.1/ 

1 (31X,5F10.1)) 

RETURN 

END 
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ORIGINAL FAGS £§ 
OK POOR QUALITY 


*DECK QSSM 

SUBROUTINE QSSM( IB,T ,TV,TE ,NH,AT0MT ,H0LF ,NE ,NM,AT0M1 ,AT0M2, 

1 ESCF ,NF0UT ,NPRT ,NFERR , RHO ,ANX ,TEX ,MLEV) 

C CALCULATES NONEQUILIBRIUM POPULATION USING QUASI -STEADY-STATE 
C ASSUMPTION FOR MOLECULAR ELECTRONIC STATES 
C INPUT PARAMETERS 
C IB-SPECIES INDEX 

C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE, K 
C TV=VIBRATIONAL TEMPERATURE, K 

C TE=ELECTRON TEMPERATURE, K 

C NH=HEAVY PARTICLE NUMBER DENSITY 

C ATGMF=ATQM FRACTION 

C MOLF=MOLECULAR FRACTION 

C NE=ELECTRON DENSITY, CM-3 

C NM=M0LECULE DENSITY, CM-3 

C AT0M1=DENSITY OF FIRST ATOM IN FREE STATE, CM-3 
C AT0M2=DENSITY OF SECOND ATOM IN FREE STATE, CM-3 
C ESCF (HU,HL)=L!NE RADIATION ESCAPE FACTOR, FROM MU TO ML 

C NFO'JT=FILE NUMBER OF OUTPUT PRINTS 
C NPRT=PRINT INDEX. 0=NO PRINT. 1=SMLL PRINT. 2=LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C OUTPUT PARAMETERS 
C RHO=NONEQUI LIBRIUM POPULATION 

C ANX(M)=NLMBER DENSITY OF M-TH ELECTRONIC LEOUEL 

C TEX(M)=EFFECTIVE ELECTRONIC EXCITATION TEMPERATURE OF M-TH 
C ELECTRONIC LEVEL 

C MLEV=N UMBER OF ELECTRONIC LEVELS 

REAL NH,MOLF,NE,NW 

C0ft10N/D:CTB/AM0LEC(3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5) J ILST(3,6,5),QW(22,28,21) I EE(8,21),SIGMA(8,2i), 

2 ARAD(4,4,5),ED(8,6,5) ,SIGMD(8,6,5) 

DIMENSION APEN(5) ,BK(5,2) ,BKPC(5) ,C(5,5) ,RHC(5) ,BKPQ( 

1 5,5) ,ANX(5) ,TEX(5) , ESCF (5,5) 
r 

C SET MOLECULAR PARAMETERS 
MLEV=LMDLEC(4,IB) 

EDIS-AT0M(4,1,IB) 

C 

C SET RHO TO 1 AND BKPQ TO 0 
DO 26 JL=1,5 
RHO(JL)=l .0 
DO 26 JU=1,5 
26 BKPQ( JL,JU)=0. 

C 

C CALCULATE EQUILIBRIUM NUMBER DENSITIES APEN( J)=(N(J)/AT0M1)E 
C AND THEIR TOTAL AKTOTE=(NM/ATOM1)E 
AMTOTE=0. 

DO 14 M=1,MLEV 

APEN(M)=AT0M2/EQC( IB,M,T ,TV,TE ,NFOUT ,NPRT ,NFERR) 
AMTOTE=AMTOTE+APEN(M) 

14 CONTINUE 
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c 

C CONSTRUCT COEFFICIENTS BKPQ AND BKPC ARRAYS 
DO 22 JP=1 ,MLEV 
DE=EDI S-SPEC2( 2 , JP , I B) 

BKPC( JP) =RATED (IB, DE , ATOMF ,MOLF ,T ,NFOUT ,NPRT ,NFERR)*(NH/NE) 

1 +ELECD ( I B , JP ,TE ,NFOUT ,NPRT ,NFERR) 

C 

DO 3 JQ=1 ,MLEV 
IF(JO-JP) 54,33,4 

4 CALL EXCTML ( IB, JP, JQ,T ,TV,TE,NFOUT ,NPRT ,NFERR , RATEC) 
BKPQ(JP,JQ)=RATEC 

GO TO 3 

54 BKPQ( JP , JQ) = ( APEN( JQ) /APEN( JP) JQ , JP) 

GO TO 3 

33 BKPQ( JP,JQ)=0, 

3 CONTINUE 
22 CONTINUE 

C 

C CONSTRUCT LHS MATRIX IN QSS EQUATION 
DO 5 JP=1,MLEV 
DO ? JQ=1,MLEV 
IF(JP.GT.l) GO TO 8 
C(JP,JQ)=APEN(JQ) 

60 TO 7 

8 IF(JP-JQ) 2,9,2 

2 C( JP , JQ) =BKPQ( JP , JQ)+( APEN( JQ)/APEN( JP) )*( ARAD( JQ, JP, 

1 IB)*ESCF(JQ,JP)/NE) 

GO TO 7 

9 C( JP,JQ)=“BKPC(JP) 

DO 12 JQS=1 ,MLEV 

C( JP , JQ) =C( JP , JQ) -BKPQ( JP , JQS)-ARAD( JP , JQS , I B)*ESCF ( JP , JOS)/NE 

12 CONTINUE 
7 CONTINUE 

5 CONTINUE 
r 

C NORMALIZE LHS OF QSS EQUATION 
DET =0. 

DO 10 JP=1 ,MLEV 
DO 10 J0=1 ,MLEV 
10 DET=DET+ABS(C(JP,JQ)) 

D£T=2 .0*(AL06(NE)-2Q . )*FLQAT (MLEV*MLEV)*( 10000 ./TE’>**1 ,2/CET 
DO 13 JP=1 ,MLEV 
DO 13 JQ*1,MLEV 

13 C(JP,JQ)=C(JP,JQ)*DET 
C 

C CONSTRUCT RHS OF QSS EQUATION 
BK(1,1)=0. 

BK(1,2)=DET 
DO 55 JP=2,MLEV 

®m; mpcm * 0ET 

55 CONTINUE 
C 

C SOLVE QSS EQUATION 

1 CALL MIW1(C,MLEV,BK, 2, DETERM) 
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C 

C CONSTRUCT NORMALIZED POPULATION RHO, NUMBER DENSITY ANX, AND 
C EXCITATION TEMPERATURE TEX 

AX=( ( AT0M1/NM)*AT0M2)/EQC( I B ,0 ,T ,TV,TE ,Nf OUT ,NPRT ,NFERR) 
AX=AL0G(AX) 

DO 6 JP=1 ,MLEV 

RH0( JP ) =8K( JP , 1 )+BK( JP , 2)*(hW/AT0Ml ) 
ANX(JP)=RH0(JP)*APEN(JP)*AT0M1 
IF(JP.EQ.l) GO TO 6 
TERM=SPEC2(2,JP,IB) 

I F ( RHO( JP) . GT . 1 . 0E-2O ) AL0GR0=AL0G(RH0( JP ) ) 

IF(RH0(JP) .LE.1.0E-20) ALOGRO=0. 

DIMM . 0-(TE/ ( 1 . 43877*TERM) )*( ALOGRO+AX) 

IF (DOM.LT.l .OE-4) WRITE(NFERR,16) (AM0LEC( 1 1 , IB) , 1 1-1 ,2) , 

1 JP, DOWN 

16 F ORMAT ( IX , 2A3 , 3X , 3HJP= ,11 , 3X , 5HD0W= , 1PE10 . 3) 

TEX( JP)=TE/D0WN 
6 CONTINUE 
C 

C WRITE RESULTS 

CHI=(hM/ATOMl)/AMTOTE 

IF(NPRT.GT.l) WRITE(NF0UT,15) (AMOLECd , IB), 1=1,2) , 

1 CHI ,(RHO(JP) ,JP=1,5) ,(ANX(JP) ,JP=1,5) ,(TEX(JP) ,JP=1, 

2 5) 

15 FORMAT ( IX , 2A3 ,3X , 4HCHI = , 1PE10 .3,3X, 4HR.H0=,1P5E10 . 3, 

1 /10X,4HANX=,5E10.3,3X,4HrEX=,0P5F10.1) 

RETURN 

END 

★DECK MINJ1 

SUBROUTINE M1NV1(A,N,B,M, DETERM) 

C MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 
DIMENSION I PIVOT (5) ,PIVQT(5) ,INDEX(5,2) 

DIMENSION A(5,5),B(5,2) 

EQUIVALENCE ( I ROW } JROW) , ( I COLUM , JCOLUM) ,(AMAX,T,SWAP) 

C 

C INITIALIZATION 
10 DETERM=1.0 
15 DO 20 J=1,N 
20 IPIVOT(J)=0 
30 DO 550 1=1, N 
40 AMX=0.0 
C 

C SEARCH FOR PIVOT ELEMENT 
45 DO 105 J=i,N 
50 IFdPIVOT(J)-l) 60,105,60 
60 DO 100 K=1,N 
70 IFdPlVOT(K)-l) 80,100,740 
80 IF(ABS(AMAX)-ABS(A(J,K))) 85,100,100 
85 IRCW=J 
90 ICOLlM=K 
95 AMAX=A(J,K) 

ioo c^tinue 

105 CONTINUE 

110 I PIVOT ( I COLUM) =1 PIVOT d COLUM )+l 
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c 

C INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGOML 
130 IF(IRQW-ICOLUM) 140,260,140 
140 DETERM= -DETERM 
150 DO 200 L=I,N 
160 &£P=A(IROW,L) 

170 A( IROW,L)=A( ICOLUM ,L) 

200 A( I COLUM , L ) =SWAP 
205 IF(M) 260,260,210 
210 DO 250 L=1,M 
220 SWAP=8(IR0W,L) 

230 B(IROW,L)=B(ICOLUM,L) 

250 B(ICQLUM,L)=SWAP 
260 INDEX(I ,l)=IROW 
270 INDEX(I ,2)=ICOLUM 
310 PIVOT ( I ) =A( I COLUM , I COLUM) 

320 DETERM=DETERM*P1 VOT ( I ) 

C 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT 
330 A( I COLUM, I COLUM) =1.0 
340 DO 350 L=1,N 

350 A(ICQLUM,L)=A( ICOLUM, L)/PIVOT( I) 

355 IF(M) 380,380,360 
360 DO 370 L=1,M 

370 B( I COLUM , L) =B( I COLUM , L)/PI V0T( I ) 

C 

C REDUCE NON-PIVOT ROWS 
380 DO 550 L1=1,N 
390 IF(Ll-ICOLUM) 400,550,400 
400 T=A(L1,IC0LUM) 

420 A(L1,ICOLUM)=0.0 
430 DO 450 L=1,N 

450 A(L1,L)=A(L1,L)-A(IC0LUM,L)*T 
455 IF(M)550,550,460 
460 DO 500 L=1,M 

500 B(L1,L)=B(L1,L)-B(IC0LUM,L)*T 
550 CONTINUE 
C 

C INTERCHANGE COLUMNS 
600 DO 710 1=1, N 
610 L=NHT-I 

620 IF(INDEX(L,1)-INDEX(L,2}) 630,710,630 
630 JR0W=1NDEX(L,1) 

640 JC0LUM=1NDEX(L,2) 

650 DO 705 K=1,N 
660 $WAP=A(K,JROW) 

670 A(K,JROW)=A(K,JCOLUM) 

700 A(K,JCOLUM)= St^P 
705 CONTINUE 
710 CONTINUE 
740 RETURN 
END 

*DECK ARBIT 

SUBROUTINE ARBIT(T,TE,TV,TEX,TARB,FACTRN,TEX2,NF0UT, NPRT , 
1 NFERR) 
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C CALCULATE EFFECTIVE DENSITY MULTIPLICATIVE FACTOR THAT, WHEN MULTIPLIED 
C TO AN EQUILIBRIUM RADIATION CODE, GIVES THE CORRECT NONEQUILIBRIUM 
C RADIATION EMISSION FOR OPTICALLY THIN CASE 


C INPUT PARAMETERS 

C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE 

C TE=ELECTRON TEMPERATURE 

C TV=VIBRATIONAL TEMPERATURE 

C TEX(M,IB)=EFFECTIVE EXCITATION TEMPERATURE OF M-TH ELECTRONIC 

C LEVEL OF IB-TH MOLECULE 

C TARB=AR8ITRARILY SPECIFIED TEMPERATURE 

C OUTPUT PARAMETERS 

C FACTRN( JSPEC) =EFFECTI VE DENSITY FACTOR FOR JSPEC-TH SPECTRAL 


BAND 

TEX2( JSPEC) =SAME AS TEX, BUT ARRANGED ACCORDING TO JSPEC 
C0MM0N/EXCTB/AM0LEC(3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5),AT0M(5,2, 

1 5) , ILST(3,6,5) ,QW(22,28,21) ,EE(8,21) ,SIGMA(8,21) , 

2 ARAD(4,4,5),ED(8,6,5),SIGMD(8,6,5) 


DIMENSION AI(2),TEX(5,5).FACTRN(20 . ^ 

C INDEX I MUST MATCH THE MOLECULAR SPECTRAL DATA 

C 1 , 2412+ 1-. 3,4412 1+. 5412 2+. 6-8=N2 BH2. 

C 9-114IO BETA. 12,13410 GAW1A. 14-17=02 SR. 


,TEX2(20) 


C 18=CN VIOLET. 19,20=CN RED. 

DATA I/I ,3,1 , 1,3,1, 2,3,2, 2,3,2, 2,5,3, 2,5,1, 2,5,1, 
1 2,5,1, 3,3,1, 3,3,1, 3,3,1, 3,2,1, 3,2,1, 4,5,1, 

> 4,5,1, 4,5,1, 4,5,1, 5,3,1, 5,2,1, 5,2,1/ 

C 

C CYCLE OVER SPECTRAL BAND 
DO 1 JSPEC=1,20 
I B= 1(1, JSPEC) 

MU=I ( 2 , JSPEC) 

ML= 1(3, JSPEC) 

TEXX=TEX(MU,I8) 

TEX2( JSPEC) =TEXX 
TERMU=SPEC2(2,MU, IB) 

. TERML=SPEC2( 2 ,ML , IB) 

C 


C. DETERMINE DENSITY FACTOR FOR N2 24 AND 02 SR, ETC 
IFfMU.LT.5) GO TO S 

QM=1 . /EQC ( I B , Q , T , TV ,TE , NFOUT , NPRT ,NFERR ) 

0 1 =1 . /EQC ( 1 B , MU , T , TV , TE , NF OUT , NPRT , NFERR ) 
F1=(Q!/QM)*EXP(-1.43877*(TERMU-TERML)/TEXX) 

QM=i ./EQC ( I B , 0 ,TARB ,TARB ,TARB ,NFOUT ,NPRT ,NFERR ) 
QI =1 . /EQC ( I B,MU ,TARB ,TARB,TARB ,NFOUT ,NPRT ,NFERR) 
F2= ( Q I /QM )*EXP ( -1 . 43877* ( TERMU-TERML )/TARB) 
FACTRN( JSPEC ) =F1/F2 
GO TO 1 
C 

6 CONTINUE 


NT=LM0LEC(2,IB) 

FACTRNf JSPEC )=0 . 

DO 4 ITX=1,NT 

IF((ML.EQ.ILST(1,1TX,IB)) .AND.(MU.EQ.ILST(2,ITX,IB)))IT=ITX 
4 CONTINUE 
I ORD=I LST(3, IT, IB) 
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c 

C SET MOLECULAR CONSTANTS 
WEL=SPEC2(3,ML,IB) 

WEU=SPEC2(3,MU,IB) 

WEXEL=SPEC2( 4 ,ML , IB) 

WEXEU=SPEC2( 4,MU, IB) 

WEYEL=SPEC2 ( 5 ,ML , I B) 

WEYEU=SPEC2(5,MU,IB) 

WEZEL=SPEC2( 6 ,ML, IB) 

WEZEU=SPEC2 (6 ,MU, IB) 

BEL=SPEC2(7,ML,1B) 

BEU=SPEC2(7,MU,IB) 

ALPHAL=SPEC2 ( 8 , ML , I B ) 

AL PHAU=SPEC2 ( 8 , MU , I B ) 

C 

C CYCLE OVER TWO TEMPERATURES 
DO 5 ITIME=1,2 
IF(ITIME.EQ.l) T1=T 
IF(ITIME.EQ.l) TV1=TV 
IF(ITIME.EQ.l) TEX1=TEXX 
IF(ITIME.EQ.2) T1=TARB 
IF(IT1ME.EQ.2) TV1=TARB 
IF(!TIME.EQ.2) TEX1=TARB 
C 

C START CYCLING OVER UPPER VIBRATIONAL NUMBER 
31=0. 

DO 2 JVU=1,22 

VU=JVU-0,5 

BU=BEU-ALPHAU*VU 

GU=VU^EU41EXELWU^24WEYEUM;U^3+WE2EUWUW4 

C 

C CYCLE OVER LOWER VIBRATIONAL NUMBER 
S2=0. 

DO 3 JVL=1,28 
FRANCK=QW( JVU , JVL , I ORD) 

IF(FRANCK.LT.l.OE-lO) 60 TO 3 

VL=JVL-0,5 

BL=BEL-ALPHAL*VL 

GL=VL*WEL-WEXEL*VL**2+WEYEL*VL**3+WE2EL*VL**4 
A1=TERMU-TERML+GU-GL+(BEU-BEL)/BEU 
DE=TERMU-TERML+GU~6L 
S2=S24DE**4*FRANCK*(Tl/( 1 ,43877*BU) )*A1 
3 CONTINUE 

S1=S1+EXP(-1 ,43877*GU/TV1 )*S2 
2 CONTINUE 

AI ( ITIME) =EXP ( -1 . 43877*TERMU/T£X1 )*S1 
5 CONTINUE 

IF(AI(2) .LT.i.OE-20) GO TO 1 
FACTRN( JSPEC)=AI (1)/AI (2) 

1 CONTINUE 
RETURN 
END 

★DECK EXCTML 

SUBROUTINE EXCTML (IB,ML,MU,T,TV,TE ,NFOUT ,NPRT ,NFERR , RATEC) 
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C CALCULATES AVERAGE ELECTRON-IMPACT EXCITATION RATE COEFICIENT 
C BETWEEN TWO ELECTRONIC STATES OF A MOLECULE 
C INPUT PARAMETERS 
C IB=MOLECULE INDEX 

C ML-INITIAL (LOWER) ELECTRONIC STATE INDEX 

C MU=F I NAL (UPPER) ELECTRONIC STATE INDEX 

C T=HEAVY PARTICLE TRANSLATIONAL m ROTATIONAL TEMPERATURE, K 
C TV=V18RATI0NAL TEMPERATURE 

C TE=ELECTRON TEMPERATURE 

C NFOUT=FJLE NUMBER OF OUTPUT PRINT 

C NPRT-PRINT OUT INDEX. 0=N0 PRINT. 1=SMALL PRINT. 2-LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C OUTPUT PARAMETERS 
C RATEC=RATE COEFFICIENT, CM3/S 

COMMON/EX CTB/AMOLEC (3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5) ,ILST(3,6,5) ,QW(22,28,21) ,EE(8,21) f SIQ1A(8,21) , 

2 ARAD(4,4,5),ED(8,6,5),SIGMD(8,6,5) 

C 

C PRESET RATEC TO ZERO 
RATEC-O . 

C 

C FIND IT AND IORD 
NT =LMOLEC ( 2 , 1 B ) 

DO 4 ITX=1,NT 

I F( (ML . EQ. I LSTfl , ITX , IB) ) .AND . (Mli.EQ. ILST( 2, ITX , IB) ) ) IT^ITX 
4 CONTINUE 

I ORD=ILST ( 3, IT , I B) 
r 

C CALCULATE AP AND BP AT ROOM TEMPERATURE FROM GIVEN CROSS-SECTION DATA 
T£RML=SPEC2(2,ML, IB) 

TERMU=SPEC2(2,MU,IB) 

DE=TERMU-TERML 

CALL CROSAB(EE(l , IORD) ,STGm(l ,IORD) ,DE,300. ,NEOUT,NPRT, 

1 AP,BP) 

IF(AP.LT.l.OE-lO) RETURN 
r 

C SET SPECTROSCOPIC CONSTANTS FOR THE LOWER AND UPPER STATES 
WEL=SPEC2(3,ML,IB) 

WEU=SPEC2(3,MU,IE) 

WEXEL=SPEC2( 4 ,ML , IB) 

WEXEU=SPEC2( 4 ,MU , IB) 

WEYEL=SPEC2( 5 ,ML , IB) 

WEYEU=3PEC2( 5 ,MU ,18) 

WEZEL=SPEC2(6,ML,IB) 

WEZEU=SPEC2(£,MU,IB) 

BEL=SPEC2(7,ML,IB) 

BEU=SPEC2(7,MU,IB) 

ALPHAL=SPEC2( 8 ,ML , I B) 

ALPHAU=SPEC2( 8 ,MU , I B) 

C 

C CONSTRUCT LOWER STATE PARTITION FUNCTION 
QL=U . 

DO 5 JVL=1,10 
VL=JVL-0.5 
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BE1=BEL-ALPHAL*VL 

QR=T/(1.43877*BE1) 

GL^A*WEL-ML+*2*WEXEL+VL**3*WEYEL+VL**4*WEZEL 
QL=QL+EXP( -1 . 43877*GL/TV)*QR 
5 CONTINUE 

C 

C SUMMATION OVER UPPER VIBRATIONAL STATES BEGINS 
SUMV1M. 

DO 1 JVU=1 , 22 

VU=JVU-G.5 

BE2=BEU-ALPHAU*VU 

GU^U^EU^U^2^EXEU4VU^3^EYEUfVU**4*WEZEU 

C 

C SUMMATION OVER LOWER VIBRATIONAL STATES BEGINS 
SUWL=0 . 

DO 2 JVL=1,2B 
FRANCK=QW( JVU , JVL , I ORD) 

IFCFRANCK.LT. l.E-4) GO TO 2 
VL S JVL-Q . 5 

GL= t 7L*WEL-VL**2*WEXEL4VL**3*WEYEL+VL**4*WEZEL 

BE1=BEL-ALPHAL*VL 

Dl=l . 43877* ( BE2-BE1 }/TE 

D2=1,43877*BE1/T 

D=Dl/(DlfD2) 

IFCD.EQ.O.) GO TO 2 
DE=TERMU-TERML+GU-GL 
C=AP+BP*1.438?7*DE/TE 
C CASE OF (D14D2) >0 

IF( ( D1+D2) .LE.O.) GO TO 7 
IF(((D1+D2).6T.0.).AND,(D1.LT.0.)) GO TO 11 
F1=0.8862*C+1.3293*BP*D 

SI =5 . 47E-1 1*SQRT(TE)*EXP( -1 . 43877*DE/TE-1 . 43877*GL/TVHF1 
1/«D1+D2)**1.5) 

IFCS1.LT. 0.) WRITE(NFERR,10) ML,MU,D1,D2,F1 ,S1 

10 F0RMATClX,3HML=,I2 f 2X,3HMU=,I2,2X,3HDl=,lPE10.3,2X,3HD2=, 
> E10 .3,2X,3HF1=,E10 .3,2X,3HS1~,E10 .3) 

IFCS1.LT. 0.) GO TO 2 
GO TO 8 

C CASE OF (D1+D2) >0 PND DKO 

11 C1=-C/(BP*D) 

IFCCl.LT. 4) F 1 =C*GAMI ( 1 . 5 , Cl )+BP*D*GAMI ( 2 . 5 , Cl ) 

I F ( Cl . GT . 4 ) FI =C* C 0 . 8862-GAMC C 1 . 5 , Cl ) )+BP*D* ( 1 . 3293- 
1 GAMC(2.5,C1)) 

SI =5 . 4?E-il*SQRT (TE)*EXP(-1 . 43877*DE/TE-1 . 54877*GL/TV)*F1 
1 /((Di+D2)**1.5) 

IFCS1.LT. 0.) WRITECNFERR,10) ML,MU,D1,D2,F1,S1 
IFCS1.LT.0.) GO TO 2 
GO TO 8 

C CAE OF (D1+D2XG 
7 D3=-D1-D2 
C1=C/(BP*D) 

IFCC1.LE.0.) NRITECNFERR,9) (MOLECCII ,IB),II=1,2) ,ML,MU, 
1 D1,D2,D3,C1 
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9 FORMAT(1X,2A3,2X,3HHL=,I2,2X,^MU=,I2,2X,3W)1=,1PE10.3,2X 
1 3HD2=,E10.3,2X,3HD3=,E1G.3,2X,3HC1=,E10.3) 
F1=C*AI3(0.5,C1)-BP*D*AI3(1.5,C1) 

SI =5 . 4 7E -1 1*SQRT ( TE )*EXP ( -1 . 43877*DE/TE-1 . 43877*GL/TV ) 

1 *F1/D3**1.5 

I F < Si - LT . 0 . ) WRITE(NFERR,10) ML, MU, 01,02, FI, SI 
I F ( SI . LT . 0 . ) GO TO 2 
6 CONTINUE 

SUWL=SUMVL+S1*FRANCK 

2 CONTINUE 
C 

SUMAI=SUMVU+SUMVL 
1 CONTINUE 
C 

RATEC-SUWU/QL 

IF(NPRT.GT.l) WRITE(NF0UT,3) ML,MU,T,TV,TE,RATEC 

3 F0RMAT(29H MOLECULAR EXCITATION. ML,MU=,2I3,3X, 8HT,TV,TE 

1 3F3.i,3X,6HRATEC=,lPE10.3) 

RETURN 

END 

*DECK GAMI 

FUNCTION GAMI (A, X) 

C EVALUATES INCOMPLETE GAMMA (SMALL LETTER) FUNCTION 
C 'UAL I D ONLY WHEN X<4 
DIMENSION FACT ( 20 ) 

DATA IT/O/ 

IF(IT.NE.O) GO TO 1 
FACT ( 1 )=1 . 

DO 2 1=2,20 

2 FACT ( I )=FACT ( 1-1 )*I 
IT=i 

i CONTINUE 
GAMI=0. 

IF(X.LT.1.0E-20) RETURN 
IF(A.LT.l.OE-lO) RETURN 
SUM=i ./A 
DO 3 1=1,15 

3 SUM=SUM+(-X)**I/((A+I)*FACT(I)) 

GAM1=SUM*X**A 

RETURN 

END 

FUNCTION GAMC(A,X) 

C EVALUATES INCOMPLETE GAMM (CAPITAL LETTER) FUNCTION 
C VALID ONLY WHEN X>4 

4 2=1. /X 

SUM=1.+(A-1)*Z+(A-1)*(A-2)*Z**2 

3AMC=X**(A-1)*EXP(-X)*SUM 

RETURN 

END 

★DECK AI3 

FUNCTION AI3(AN,A) 

C EVALUATES INTEGRAL OF X**AN*EXP(X) FROM ZERO TO A 
DIMENSION X(200),Y(200) 

AI3=0, 

IF(AN.LT.-20.) RETURN 
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IF(AN.GT.20.) RETURN 
IF(A.LT.l.OE-lO) RETURN 
IF(A.GT.20.) RETURN 
XLIM=EXP(A) 

N=10*XLIM 
IF(N.LT.IO) N=10 
IF(N, GT.200) N=200 
DO 1 I =1 ,N 

X( I)=1.0001+(XLIM-1 .0001 )*FLQAT( 1-1 )/FLOAT<N-l ) 

IF(Xd).EQ.l.O) Y(I)=1.0 
IF(X(I) .NE.1.0) Y(I)=AL06(X(I))**AN 
1 CONTINUE 

CALL SIMP(ANS,X,Y,N,IER) 

AI3=ANS 

RETURN 

END 

★DECK SIMP 

SUBROUTINE SIMP(R,X,Y,N,IER) 

DIMENSION X(N) ,Y(N) 

R=0.0 

IF(N.GT.l) 60 TO 1 

IER=2 

RETURN 

1 IF(X(1).EQ.X(2)) 60 TO 12 
NM1=N-1 

IF(N.EQ.2) 60 TO 13 
IF(X(1).LT.X(2)) 60 TO 3 
C TEST FOR X TO BE MQNOTONICALLY DECREASING 
DO 2 I=2,NM1 

IF(X(I+1).6E.X(I)} 60 TO 12 

2 CONTINUE 
60 TO 5 

C TEST FOR X TO BE MONOTON1 CALLY INCREASING 

3 DO 4 1=2, Mil 
IF(X(HT).LE.X(I)) GO TO 12 

4 CONTINUE 

5 Wi2=N-2 

IF(M0D(N,2) .EQ.O) GO TO 14 

P=0.0 

Nl=l 

6 S1=X(N1+1)-X(N1) 

S2=X (Nl+2) -X (Nl+1 } 

S3=X(MH)-X(H12) 

S4=X(N)-X(NM1) 

R= ( 2 . *S1**2-}“S1*S2-S2**2 )/Sl*Y (N1 )+ ( 2 ,*S4**2f S3*S4-S3**2 ) /S4*Y(N ) 
N1=N1+1 

DO 7 I=N1,W1,2 
S1=X(I)-X(I-1) 

S2=X(I+1)-X(I) 

7 R=R+(S1+S2)**3/(S1*S2)*Y(I) 

IFfN.LT.5) GO TO 9 
N1=N1+1 

DO 8 I=N1,NM2,2 
Sl=X(I-l)-X(I-2) 
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S2=X(I)-X(I-i) 

S3=X ( I +1 ) —X ( I ) 

S4=X(I+2)-X(I+l) 

8 R=R+( (2.*S2**2+Sl*S2-Sl**2)/Sa(2.*S3**2+S3*S4-S4^2)/S3)*Y( I ) 

9 R=R/6.+P 

10 CONTINUE 
IER=1 
RETURN 

11 IER=3 
RETURN 

12 IER=4 
RETURN 

C TRAPEZOIDAL RULE FOR N=2 

13 R=(X< 2) -X(l ) )* ( Y( 1 )+Y( 2) )/2 . 0 
GO TO 10 

C FIT POLYNOMIAL THRU FIRST 3 POINTS m INTEGRATE FROM X(l) TO X(2). 

14 S1=X(2)-X(1) 

S2=X(3)-X(1) 

S3=Y( 2) -Y ( 1 } 

S4=Y(3)-Y(1) 

P-Sl/6 .*( 2 ,*S3+6 .*Y ( 1 )+( S2**2*S3-S1**2*S4)/(S2*( S2-S1 ) ) ) 

Nl=2 
GO TO 6 
END 

*DECK ELECD 

FLNCT I ON ELECD( I B ,M ,TE ,NFOUT ,NPRT ,NFERR) 

C CALCULATES RATE OF DISSOCIATION BY ELECTRON- IMPACT 
C INPUT PARAMETERS 
C IB=SPECIES INDEX 

C M=ELECTRCNIC ENERGY LDJEL NUMBER 

C TE=ELECTRON TEMPERATURE 

C NFOUT=FILE NUMBER OF OUTPUT PRINT 

C NPRT=PRINT INDEX. 0=NO PRINT. l=SfttLL PRINT. 2=LARGE PRINT. 

C NFERR=FiLE NUMBER OF ERROR MESSAGES 

C OUTPUT PARAMETER 

C ELECD-DI SSOCI ATI ON RATE COEFFICIENT, CM3/S 

COMON/EXCTB/AMOLEC ( 3,5), LMOLEC( 4 , 5) , SPEC2 (8,8,5) ,AT0M(5,2, 

1. 5) , I LST ( 3,6 j5) , QW( 22,28,21) ,EE(8,21) f SI8MA(8,21) , 

2 ARAD(4,4,5),ED(8,6,5) ,SI94D(3,6,5) 

DISS=AT0M(4,1,IB) 

TERM=SPEC2(2,M,IB) 

DE=DI SS-TERM 

CALL CROSABC ED( 1 ,M , I B) , SI GMD( 1 ,M , I B) , DE , 300 . ,NFOUT ,NPRT , 

1 AP, BP) 

ELECD=5.47E-11*SQRT(TE)*EXP(-1 ,4387?*DE/TE)*(AP+(i .43877*DE/ 

1 TE)*BP) 

IF(NPRT.GT.l) WRITE(NFOUT,l) (AMOLECd , IB) ,1=1,2) ,M,TE, ELECD 
1 F ORMAT ( 1 X , 2A 3 , 3X , 6HLEVEL= , 1 2 , 3X , 3HTE= , F9 . 0 , 3X , 6h'ELECD= , 1 PEI 0 . 3) 
RETURN 
END 

★DECK CROSAB 

SUBROUTINE CROSAB(EE,3IGMA,DE,T,NFOUT,NPRT,A,B) 

C EVALUATES A AND B IN EXCITATION RATE EXPRESSION 
C INPUT PARAMETERS 



C EE=ELECTRON ENERGY, IN EV OR RYD 

C SIGMA=CR0SS SECTION, IN CM2 OR P1*AQ**2 

C DE=THRESHOLD ENERGY, CM-1 

C T =EXC I T AT I ON TEMPERATURE, K 

C NFOUT=FILE NUMBER OF OUTPUT PRINT 
C NPRT=PRINT OUT INDEX. 0410 PRINT. 1=SWLL PRINT. 2= 

C LARGE PRINT 

C OUTPUT PARAMETERS 
C A=A 

C B=B 

DIMENSION EEC 8) ,SIGMA(8) ,GZI(15) ,W(15) ,Y(15) 

DATA GZI/O. 093308, 0.49269, 1.21560, 2.26995, 3.66762, 5.42534 
1,7.56592,10.12022,13.13028,16.65440,20.77648,25.62389,31.40752, 
2 38.53068,48.02609/ 

DATA W2 . 1 8235E-1 , 3 . 4221 OE-1 , 2 . 630 28E-1 , 1 . 26426E-1 , 4 . 020 69E-2 , 

1 8 . 56388E-3 ,1.21 244E-3 ,1.11 6744E-4 , 6 . 45993E-6 , 2 . 22632E-7 , 

24 . 22743E-9 , 3 . 92190E-11 , 1 . 45652E-13 , 1 . 48303E-16 , 1 . 60O59E-2Q/ 
DATA NEE/8/ 

A=0. 

B=0. 

IF(DE.LT. 0.00001) RETURN 
M0N=0 

DO 1 JX=1,8 

E£X=(T/11605 . )*G2I ( JX)+EE( 1 ) 

IF(EEX.LT.EE(8)) GO TO 4 
YX=SIGMA(8)*EE(8)/EEX 
GO TO 5 

4 CONTINUE 

CALL TAINT(EE,SIGMA,EEX,YX,NEE,2,IER,M0N) 

IF(YX.LT.O.) YX=0. 

5 Y(JX)=YX/0.879E-16 

1 CONTINUE 

DO 2 JX=1,8 

A=A4M(JX)*Y(JX)*GZI(JX) 

2 B=B4W(JX)*Y(JX) 

IF(NPRT.GT.l) WRITE(NF0UT,3)T,A,B 

3 FORMAT (1X,3H T=,F10.1,3X,2M=,1PE10.3,2X,2HB=,E10.3) 

RETURN 

END 

★DECK EQC 

FUNCTION EQC(IB,M,T,TV,TE,NFOUT,NPRT,NFERR) 

C FOR DISSOCIATION M=A+B, CALCULATE EQUILIBRIUM CONSTPWT 
C (QA)*(QB)*EXP(-E/KT)/(QM) INCLUDING TRANSLATIONAL COMPONENT 
C IN THE CGS UNIT 
C INPUT VARIABLES 

C 1B=SPECIES INDEX. 1=N2+,2=N2, 3410, 4=02 ,5=CN 
C M=ELECTRONIC STATE INDEX 

C =0 TOTAL MOLECULE. >0 INDIVIDUAL ELECTRONIC LEVEL 
C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE 

C TV=V1BRATI0NAL TEMPERATURE 

C TE=ELECTRON TEMPERATURE 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT INDEX. 0=NO PRINT. 1=SMLL PRINT. 2=LARGE PRINT 
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C NFERR=FILE NUMBER OF ERROR MESSAGES 

C(JtlCW/EXCTB/AM0LEC(3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5) ,ILST(3,6,5),QW(22,28,21),EE(8,21),SIGMA(S,21) , 

2 ARAD(4,4,5) ,ED(8,6,5),SIGMD(8,6,5) 

DIMENSION QTA(2) 

IF(M.GT.O) QRM=PARTM( I B,M,T ,TV ,TE ,NFOUT ,NPRT ,NFERR) 

IF(M.GT.O) GO TO 3 
QRM=Q. 

LEVELS=LMQLEC(3,IB) 

C PARTITION FUNCTION OF AN ELECTRONIC STATE PARTM IS MEASURED 
C FROM THE MOLECULE GROUND STATE 
DO 2 IM=1, LEVELS 

2 QRM=QRM+PARTM( I B , IM,T ,TV ,TE ,NFOlTT ,NPRT ,NFERR) 

3 CONTINUE 
WT=AM0LEC(3,IB) 

QTM=(3.281E13*WT*T)**1.5 

Qh=QRM*QTM 

C CHEMICAL ENERGY DE IS THE DISSOCIATION ENERGY IN ALL CASES 
C BECAUSE PARTM IS MEASURED FROM THE GROUND STATE 
DE=AT0M(4,1,IB) 

DO 1 IA=1,2 
WT=AT0M(3,IA,IB) 

1 QTA(IA)=(3,281E13*Ur*T)**l,5W0M(5,lA,IB) 

EQC=(QTA(1)/QM)*(QTA( 2)*EXP(-1 ,43766*DE/TE) ) 

IF(NPRT.GT.l) WRITE{NF0UT,4) (AMOLEC(I , IB), 1=1, 2) ,M, 

1 T,TV,TE,EQC 

4 FORMAT ( IX, 2A3,3X,7H LEVEL=,I2,3X,8HT,TV,TE=,3F9.1,3X, 

1 4HEQC=,1PE10.3) 

RETURN 

END 

*DECK PARTQ 

FUNCTION PARTQ ( IB,T,TU ,TE ,NFOUT ,NPRT ,NFERR) 

C CALCULATES INTERNAL PARTITION FUNCTION OF A MOLECULE 
C WITHOUT TRANSLATION 
C INPUT PARAMETERS 
C I B=SPECI ES INDEX 

C T=RDTATIONAL TEMPERATURE 

C TV=VIBRATIGNAL TEMPERATURE 

C TE=ELECTRONIC EXCITATION TEMPERATURE 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT INDEX 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

CfttlON/EXCTB/AMOLEC ( 3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5) ,ILST(3,6,5),QW(22,28,21),EE(8,21),SIGMA(8,21) , 

2 ARAD(4,4,5),ED(8,6,5),SIGMD(8,fi,5) 

LEVELS=LM0LEC(3,IB) 

PARTQ=0 . 

DO 1 M=l, LEVELS 

PART Q=PART Q+PARTM ( I B , M ,T , TV , TE , NFOUT , NPRT , NFERR ) 

1 CONTINUE 
RETURN 
END 

★DECK PARTM 

FINCT I ON PARTM ( IB,M,T,TV,TE , NFOUT ,NPRT , NFERR) 
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C CALCULATES PARTITION FUNCTIONS FOR MOLECULES 
C INPUT PARAMETERS 

C IB=SPECIE$ INDEX. 1 =N2+ , 2=N2 , 3=N0 , 4=02 , 5=CN 

C M=ELECTRGNIC STATE INDEX 

C T=HEAVY PARTICLE TRANSLATIONAL MD ROTATIONAL TEMPERATURE 
C TV=VIBRATIGNAL TEMPERATURE 

C TE=ELECTRON TEMPERATURE 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C0!tl0N/EXCTB/AM0LEC(3,5) ,LM0LEC(4,5) ,SPEC2(8,8,5) ,AT0M(5,2, 

1 5) , I LST (3,6,5) ,QW(22,28 ,21 ) ,EE(8,21 ) ,S1GMA(8,215 , 

2 ARAD(4,4,5) ,ED(8,6,5) ,SIGMD(8,6,5) 

C 

C EQUATE TEMPERATURES AND NUMBER DENSITY 
TROT=T 
TVI8=TV 
TELECT=TE 

DEGEN = SPEC2(1,M,IB) 

TERM = SPEC2(2,M,IB) 

WE = SPEC2(3,M,IB) 

WEXE = SPEC2(4,M,IB) 

NEYE = SPEC2(5,M,IB) 

NEZE = SPEC2(6,M,IB) 

BE = SPEC2(7,M,IB) 

ALPHA = SPEC2{8,M,IB) 

C 

C CALCULATE PARTITION FUNCTION 
PARTM=0 . 

0VR=0,Q 

QM=0.0 

EVIB1=0.0 

V=0.O 

60 & J IB24IE*(VF0.5) -WEXE*(V+0.5)**2 +WEYE*(V+0.5)**3 

1 4WEZE*(V+C.5)**4 

DELTQV=EXP(-1 .43879*EVIB2/TVIB) 

C COMPARE DELTA Q-VIBRATIO^L TO 0.1 PERCENT OF THE QV SUM TO THIS 
C POINT. 

IF (DELTQV .LE, 0.001*0*7) GO TO 70 
C HAS THE VIBRATIONAL ENERGY REACHED A FICTITIOUS PEAK. 

IF (EVIB2 .LE. EVIB1) 60 TO 70 
qV=QV+DELTQV 

IF ((BE-ALPHA*(V+G.5)) .LE.1.0E-8) GO TO 70 
QVR=QVR +TR0T*DELTQV/(1 . 43879* (BE-ALPM*(VFO .5) ) ) 

65 CONTINUE 

EVIB1-EVIB2 
V=V+1.0 
GO TO 60 

70 PARTM=PARTM +QVR*DEGEN*EXP( -1 . 43879*TERM/TELECT) 

WRITE OUT RESULTS 

IF(NPRT.GT.l) WRITE(NF0UT,2) (AMOLEC( I , I B) , 1=1 ,2) ,M, 

1 T,TV,TE,PARTM 

2 FORMAT(1X,2A3 } 2X,6HLEVEL= > I2,2X,8HT,TV J TE=,3F8.0,2X, 

1 19HPARTITI0N FUNCTIGN=,1PE10.3) 



RETURN 

END 


Ok't-ciu'- 
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★DECK TAINT 

SUBROUTINE TAINT(XTAB,FTAB,X,FX,N,K,N£R, MON) 
DIMENSION XTAB(N) ,FTAB(N) ,T(10) ,C(10) 

CPS0400 TAM SUBROUTINE- IN FORTRAN II. 

IF (N - K) 1,1,2 

1 NER=2 
RETURN 

2 IF ;K-9) 3,3,1 

3 IF ( MON) 4,4,5 

5 IF ( MON-2) 6,7,4 

4 J=0 
NM1=N-1 

DO 8 1=1 ,NM1 

IF (XTAB(I)-XTAB(I+1)) 9,11,10 

11 NER=3 
RETURN 

9 J=J-1 
SO TO 8 
10 J=JF1 
8 CONTINUE 
MON=l 

IF (J) 12,6,6 

12 MON=2 

7 DO 13 1=1 ,N 
IF (X-XTAB(I)) 14,14,13 

14 J=I 

GO TO 18 

13 CONTINUE 
GO TO 15 

6 DO 16 1=1 ,N 

. IF (X-XTAB(I)) 16,17,17 

17 J=I 

GO TO 18 
16 CONTINUE 

15 J=N 

18 J=J-(K+l)/2 

IF (J) 19,19,20 

19 J=1 

20 M=J+K 

IF (M-N) 21,21,22 

22 J=J-1 

GO TO 20 

21 KP1=K+1 
JSAUE=J 

26 DO 23 L=l,KPi 
C(L)=X-XTAB(J) 

T(L)=FTAB(J) 

23 J=J+1 

DO 24 J=1,K 
I=J+1 
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25 T(I)»(C(J)*T(I)-C(I)*T(J))/(C(J)-C(I)) 

1=1+1 

IF (I-KP1) 25,25 ,24 
24 CONTINUE 
FX=T ( KP1 ) 

NER=1 

RETURN 

END 

*DECK RATED 

FUNCT I ON RATEDC I B , DE , ATOMF ,t10LF,T ,NFOUT ,NPRT ,NFERR) 

C CALCULATES DISSOCIATION RATE DUE TO HEAVY PARTICLE COLLISION 
C INPUT PARAMETERS 
C IB=SPECIES INDEX 

C DE=DISSOCIATI0N ENERGY, CM-1 

C ATOMF=FRACTION OF ATOMS 

C MOLF=FRACTION OF MOLECULES 

C T=HEAVY PARTICLE TEMPEATURE, K 

C NFOUMTLE NUMBER OF OUTPUT PRINTS 
C NPRT=PRINT INDEX. 0=NQ PRINT. 1= SMALL PRINT. 2=LARGE PRINT. 

C NFERR=FILE NUMBER OF ERROR MESSAGES 
C OUTPUT PARAMETER 

C RATED-DI SSOCIATI ON RATE COEF, CM3/S 

REAL MOLF,N 

DIMENSION C(2,5),N(2,5) 

C RATE CONSTANTS C AND N TAKEN FROM PARK-MENEES JGR VOL 83, NO 08, 

C P4023, AUG 1978 

C THE CONSTANTS FOR CN ASSUMED TO BE THE SAME AS FOR NO 
DATA C/Q. 0184, 0.00614, 0.0184, 0.00614, 7, 63E-7,3.82E-7, 

1 1 . 37E-4 , 4 . 56E-5 , 7 . 63E-7 , 3 . 82E-7/ 

DATA N/-1. 6, -1.6, -1,6, -1.6, -0.5, -0.5, -1.0, -1.0, -0.5, -0.5/ 

C C(1,IB)=RATE CONSTANT FOR ATOM COLLISION 
C C(2,IB)=RATE CONSTANT FOR MOLECULE COLLISION 
C N(l, IB) TEMPERATURE EXPONENT FOR ATOM COLLISION 
C N(2,IB)=TEMPERATURE EXPONENT FOR MOLECULE COLLISION 
D=i . 4388+DE 

RA7ED=(ATGMF*C( 1 , I B)+MOLF*C(2 , IB) )*T**N(1 , !B)*EXP(-D/T) 
IF(NPRT.GT.l) WRITE(NF0UT,1) IB, DE, RATED 
1 FORMAT ( IX , 12FM0LECULE NO. ,I3,2X,3HDE=,F10.1,2X, 

1 7H RATED=,1PE10.3) 

RETURN 

END 

*DECK RADIN 

C THIS IS THE BEGINNING OF THE MODULE NUMBER 3 
C THE MODULE CONTAINS THE FOLLOWING SUBROUTINES 
C RADIN, RADCAL,BFCONT, TAINT, FFCONT, ATOMIC, SETUP ,VWL, 

C ZERO , ONE , S2P 1 2 , FAST , SAXPY , GLBPWR 

SUBROUTINE RADIN(NFIN,NFOUT,NPRT) 

C 

C READ IN RADIATION DATA FOR NONEQUILIBRIUM RADIATION CALCULATION 

C INPUT ARGUMENTS 

C NFIN=FILE NUMBER OF INPUT DATA (NORMALLY 5) 

C NFOUT=FILE NUMBER OF OUTPUT DATA (NORMALLY 6) 

C NPRT-PRINT OUT INDEX. 0=N0 PRINT. 1=SMALL PRINT. 2=LARGE PRINT 



original - 

^ OF RO Ji< ii * 

C COMON/RADA/ CONTAINS ATOMIC DATA 

COMMON/RADA/ATOM(4,2),LATQM(4,2),GLEV(8,2,2) ,ELEV(8,2,2) ,BLINE 

1 (13,180,2) ,NBFC0N(2,35,2) ,BFC0N(14,35,2) ,TFF(5) ,EEFF(6) , 

2 FFC0N(6,5,2) 

C 

C COftlON/RADB/ CONTAINS MOLECULAR DATA 

C0MM0N/RADB/AM0LEC( 3,20), LH0LEC( 6,20), SPEC2( 8 , 20 , 20 ) B ( 4 , 1 00 , 20 ) 
C 

r 

C CYCLE OVER 2 SPECIES. ISP=1; NITROGEN; =2: OXYGEN 
DO 2 ISP=1,2 

r 

C READ IN BASIC ATOMIC DATA 
C VARIABLES 

C AT0H(1“2, ISP)=HAME OF ATOM 

C (3,ISP)=AT0MIC WEIGHT 

C (4,ISP)=ICNI2ATI0N POTENTIAL, CM-1 

C LATOM(l,ISP)=NUMBER OF LINES 

C (2, ISP) DUMBER OF BOUND-FREE CONTINUUM 

C (3,ISP)=NUMBER OF FREE-FREE CONTINUUM (=5) 

READCNFIN, 3) (ATOM(I ,ISP),I=1,4),(LAT0M(I,ISP),I=1,3) 

3 PORMAT(1X,2A3,3X,2E10.3,3I5) 

IF(NPRT.GT.O) WRITE (NFOUT,l) (AT0M(I ,ISP) ,1=1,4) ,(LAT0M(I ,ISP) ,1= 

1 1,3) 

1 FORMAT (//16H BASIC ATOM DATA/SH WME=,2A3,3X,14HATWIC WEIGKT=,F10 
1.3,3X,21HI0NIZATI0N POTENT I AL= , FI 0 . 1 , 5H CM-1/ 75H NUMBER OF LINES, 
2B01MJ-FREE CONTINUUM, AND FREE^FREE CONTINUUM PARAMETERS = ,316) 

P- 

U 

C READ IN MULTIPLICITY AND ENERGY LEVEL OF NEUTRAL AND IONIZED STATES 
IF(NPRT.GT.i) WRITE(NFQUT,8) 

8 FORMAT (/6QH MULTIPLICITY AND ENERGY LEVEL OF NEUTRAL AND IONIZED S 
1TATES ) 

DO 5 I ON=l , 2 

R£AD(NFIN,6) f (GLEV( I , ION, ISP) ,ELEV(I , ION, ISP) ) , 1=1 ,8) 

6 FORMAT ( 8E10 . 3) 

IF(NPRT.GT.l) WRITE(NFOUT,?)((GLEV(I ,ION,ISP) ,ELEV(I ,I0N,ISP)) ,1= 

1 1,8) 

7 F0RMAT{4(2X,F6.1 .F10.1)) 

5 CONTINUE 

C 

C LINE DATA 

If(NPRT.GT.l) WRITE(NF0UT,9) 

3 FORMAT (/ 10H LINE DATA/ 99H GAM EXPN GL GU TERM 

1 EINSTN LAMCL ST(L) ST(U) I(L) I(U) 

2 ) 

MLINE=LATOM(l,ISP) 

DO 12 ILINE=1,MLINE 

READ(NFIN,13) (BLINE(I ,IL1NE, ISP) ,1=1,13) 

13 FORMAT (2E10 .3, 2F5.1 ,3E10 .3,1X,2A3,1X,2A3,2F3 .0) 

IF(NPRT.GT.l) WRITE(NF0UT,14) <BLINE(I , ILINE, ISP) ,1=1,13) 

14 FORMAT(lP2E10.3,0P2F5.1,lP3E10.3,lX,2A3,lX,2A3,0P2F3.0) 

12 CONTINUE 
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C BOUND-FREE CONTINUUM DATA 

IF(NPRT.ST.l) WRITE(NFOUT ,15) 

15 FORMAT!/ 48H BOUND-FREE CONTINUUM GAUNT FACTORS, FROM PEACH ) 
NC0N=LAT0M(2,iSP) 

DO 16 IC0N=1,NCQN 

READ(NFIN,1?) NBFCONd, ICON, ISP), (9FC0N(I, ICON. ISP), 1=11, 14), 

1 NBFC0N(2 f ICON, ISP), (BFCQNd, ICON, ISP), 1=1, 10) 

1? FCRMAT(1X,!1,A2,A3,3X,2F1G.2,I10/10F8.4) 

IF(NPRT.GT.l) WRITE(NF0UT,17) NBFCONd, ICON, ISP), (BFCQNd , ICON, 
1 ISP), 1=11, 14) ,NBFC0N(2, ICON, ISP), (BFCQNd, ICON, ISP), 1=1, 10) 

16 CONTINUE 
C 

C FREE-FREE CONTINUUM DATA 
NC0N=LATQMf3,ISP) 

READ(NFIN,6) (EEFF(l) ,1=1,6) 

IF(NPRT.GT.l) WRITE(NF0UT,33) (EEFF(l) ,1=1,6) 

33 F0RMAT(/41H FREE-FREE CONTINUUM FACTORS, FROM PEACH / 

> 19H ELECTRON ENERGIES=,6F8,3) 

DO 19 IC0N=1,5 

READ(NFIN,6) TFF(ICON) ,(FFCQN(1 , ICON, ISP) ,1=1,6) 

IF(MPRT.GT.l) NRITE(NF0UT,20) TFF(ICON) ,(FFCQN(I , ICON, 

1 ISP) ,1=1,6) 

20 FORMAT! F10.G,6F10, 3) 

19 CONTINUE 

2 CONTINUE 


C READ IN MOLECULAR DATA 
r 

C VARIABLES 

C IB=BAND INDEX, FRO! 1 TO 20 

C AMOLEC(i-2,IB)=NAME OF BAND 

C (3,!B)=M0LECULAR WEIGHT 

C LMCLECf 1,1 B) =TYPE INDEX 

C (2, IB) DUMBER OF BANDS 

C (3,IB)=NUMBER OF ENERGY LEVELS 

C (4,IB)=M0LECULE INDEX IN THE NONEQUILIBRIUM SCHEME 

C (5,IB)=0RDER WITHIN A MOLECULE 

C SPEC2( I , J , I B) ^MOLECULAR CONSTANTS 

C V I B( VI , V2 , 1 B ) =V I BRAT I ONAL DATA 

C 

NB=2Q 

DO 21 IB=1,NB 

READ( NF IN , 22 ) (AMOLECd ,IB) ,1=1 ,3) ,(LMOLEC(I ,IB) ,1=1,5) 

22 FORMAT ( IX , 2A3 , 3X , F10 . 3 , 61 5) 

IF(NPRT.GT.O) WR!TE(NF0UT,23) (AM0LEC(I,IB),I=1,3),(LM0LEC(I,IB), 
1 1=1,5) 

23 FORMAT (//21H MOLECULAR BAND NAME= , 2A3,19H MOLECULAR WEI6KT=,F10. 

1 3/ 6HINDEx=,12,3X,13W0, OF BANDS=,I3,3X,14W0. OF LEVELS=, 

2 1 3 , 3X , 1 3PM0LECULE N0.=,!2,3X, 6H0RDER=,I2) 

READ(NFIN,24) LM0LEC(3,IB) ,(SPEC2(I ,1,IB) ,I=2,8),(SPEC2(I ,2,IB) , 

1 1=1.8) 
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24 FORMAT ( I 1 0 , 7E10 . 3/8E10 . 3 ) 

IF(NPRT.GT.l) WR1TE(NF0UT ,25) LM0LEC<3, IB) , (SPEC2( 3 ,1 , IB) , I =2,8) , 

1 (SPEC2(I,2,IB),I=1,8) 

25 FORMAT (15H NO. OF LEVELS=,I2,lX,mTNAT=,F5.1,lX,4HDEU=, 

1 1PE10 .3, IX, 6HBETAU= , E10 . 3 , IX , 4HREU= , El 0 . 3 , IX , 7HDZEROU=,OPF10.2 
2, IX, 6HCAPAU=, F8.2,1X, 6HCAPLU= , F4 , 1/ 4H MU=, F8.2,6X, 7HNUSPIN=, 

3F5 , 1 , IX , 4HDEL= , IPEIG . 3 , IX , 6HBETAL=,E10 .3,1X, 4HREL=,E10 .3 ,1X, 

4 ?HDZEROL=,OPF10.2,1X, 6HCAPAL=, F8.2,1X,6HCAPLL=,F4.1/80H DEG£>4 

5 TERM WE WEXE WEYE WEZE BE AL 
bPHA ) 

N1=LM0LEC(3, IB)+2 
W=LM0LEC(2,1B)-1 
DO 2b JN=3,N1 

READ(NFIN,6) (SPEC2(I ,JN, IB) ,1=1,8) 

IF(NPRT.GT.l) WRITE(NFOUT ,28) (SPEC2(I,JN, IB), 1=1,8) 

28 F ORMAT (6F10.3,F10.5,1 PEI 0.3) 

2£ CONTINUE 

C 

C INDIVIDUAL VIBRATIONAL BMDS 

IF(NPRT.fiT.l) WRITE(NF0UT,29) 

29 FORMAT (65H VU VL SUMRE2 FRANCK VU VL SUMRE2 FRANKCK 

>CK ) 

DO 30 JV=1,NV,2 

READ(NFIN,31) (UIB(I , 18) , 1=1 ,4) , (VIB( I , JM+1 , IB) , 1=1 ,4) 

31 F ORMAT ( 2 ( 2F5 . 1 , 2E1 0.3)) 

I F ( NPRT . 6T . 1 ) WRITE (NFOUT , 32 ) ( VI B( I , JV , I B) , I =1 , 4 ) , ( V! B( I , JVtl , 

1 IB), 1=1, 4) 

32 FORMAT (2( 0P2F5. 1 ,1P2E10 .3) ) 

30 CONTINUE 
21 DETINUE 

RETURN 

END 

*DECK RADCAL 

SUBROUTINE RADCAL(N,NP,0,0P,N2,N2P,02,N0,CN,!€,T,TV J TE,TEX, 

> PRESS.RHO, DENS, SMF,WIDTHF, STARK, NAVELS, WAVELL,NARRAY,NF IN, 

> NF OUT , NPRT1 , NPRT2 , NFERR , MiETH , WAVEL , EM I S , ABSB , T OTPWR ) 

C CALCULATES RADIATION 

C INPUT PARAMETERS 
C N=NUMBER DENSITY OF N 

C NP=NINBR DENSITY OF N+ 

C 0=NLMBER DENSITY OF 0 

C GP=NUMBER DENSITY OF Of 

C N2=NUMBER DENSITY OF N2 

C N2P=NUMBER DENSITY OF N2+ 

C 02=NUMBER DENSITY OF 02 

C N0=NUMBER DENSITY OF NO 

C CN=NUMBER DENSITY OF CN 

C NE=NUMBER DENSITY OF ELECTRONS 

C T=HEAVY PARTICLE TEMPERATURE( =ROTATI ONAL TEMPERATURE) 

C TV=VIBRATICNAL TEMPERATURE 

C TEX( JSPEC) =ELECTRONI C EXCITATION TEMPERATURE OF JSPEC-TH 
C MOLECULAR SYSTEM 

C PRESS=PRESSURE, ATM 

RHO=NONEQUI LIBRIUM POPULATION PARAMETERS FOR ATOM, DIMENSIONED 
(23,2) 
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< *> t-> 


C DENS=GAS DENSITY, G/CM3 

C SMF=STRENGTH MULTIPLICATION FACTOR, DIMENSIONED (20,2) 

(1 .1) =N LINE 

(2.1 ) =N BOUND-FREE CONTINUUM 
(3,1}=N+ FREE-FREE CONTINUUM 

C (4,1)=0 LINE 

C ( 5 , 1 ) =0 BOUND-FREE CONTINUUM 

C (S,1)=0+ FREE-FREE CONTINUUM 

C (JSPEC2,2)=M0LECULAR BAND 

C WIDTHF=L0RENT2 WIDTH MULTIPLICATION FACTOR FOR MOLECULE 

C STARK =STARK WIDTH FOR MOLECULE AT NE=1.E16 PND TE=10000 

C WAVELS=SHORT-WAMELENGTH LIMIT, A 

C WvELL=LONG-WWELENGfTH LIMIT, A 

C NARRAY=LENGTH OF RADIATION ARRAYS) 

C NFOirr=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT Oirr INDEX. 0=NO PRINT. 1=SMLL PRINT. 2=LARGE PRINT 
C NFERR=F’LE NUMBER OF ERROR MESSAGES 

C NMETH=1, TOTAL POWER CALCULATION. =2, SPECTRAL CALCULATION 
C OUTPUT PARAMETERS 
C WAVEL=WAVELENGTH, A 

C EMI S=EMI SSI ON COEFFICIENT, W/(MICR0N-CM2-SR) 

C ABSB=ABSORPT I0N+STI MULATED EMISSION COEFFICIENT, CM-1 

C T0TPWR(3)=T0TAL EMITTED POWER. 1=T0TAL, 2=AB0UE 2500 A 
C 3=ABOVE 3500 A 

REAL N,NP,N2,N2P,N0,NE 

C0Mi0N/RADA/AT0M(4,2),LAT0M(4,2) ,GLEU(8,2,2),ELEV(8,2,2) ,BLINE 

1 (13,180,2) ,NBFC0N(2,35,2} ,BFC0N(14,35,2) ,TFF(5),EEFF(6), 

2 FFC0N(6,5,2) 

COftilK/RADB/AMOLEC (3,20), LMOLEC( 6 , 20 ) , SPEC2( 8 , 20 , 20 ) , VI B( 4 , 

1 100 , 20 ) 

DIMENSION TEX( 20) 

DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

DIMENSION ANMOL(20) ,AN(2,2) ,RH0(23,2) ,SMF(20,2) , 

> T0TPWR(3) 

DATA INIT/0/ ,NLEV/22 ,19/ 

IF((M1ETH.EQ.1).AND.(NARRAY.GT.1000)) NARRAY=1000 
C 

C READIN RADITION DATA AND PRODUCE WAVELENGTH ARRAY 
IF(INIT.NE.O) GO TO 4 
CALL RAD I N( NF I N , NF OUT , NPRT 1 ) 

DELLAM=(1 ,/WAVELS-l ./WAVELL)/(NARRAY-1 ) 

DO 3 M=1 ,NARRAY 

3 WAVEL(M)=1./(1./WAVELS-(M-1)*DELLAM) 

INIT=1 

4 CONTINUE 

C NULL EMIS, ABSB, AND TOTPWR ARRAYS 
DO 8 M=1 ,NARRAY 
EMIS(M)=0. 

8 ABSB(M)=0. 

DO ? M=1 ,3 

9 T0TPWR(M)=0. 
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omsmk l f-ac:: 

c OF POOR QiakLH'i 

C ATOMIC CALCULATION STARTS 
AN(1,1)=N 
AN(2,1)=0 
AN(1,2)=NP 
AN(2,2)=QP 
DO i ISP=1,2 
! =3* (ISP-1) 

IF(SMF(B1,1).GT.1.0E-10) CALL AT0M1 C( I SP ,NE ,TE ,T , RH0( 1 , 1 SP ) , 

1 NLEV(ISP) ,AN(ISP,1) ,AN(ISP, 2), PRESS, DENS, S^d+ljDjWAVELj'EHIS, 

2 ABSB , NAR RAY , NF OUT ,NPRT2 ,NFERR ,NMETH ,T(JTPWR) 

C 

C CALCULATE GLOBAL (4 PI STER-RADIAN) POWER EMISSION 

I F ( f^iETH . GT . 1 ) CALL GLBPWR( WWEL , EMI S ,NARRAY , PWR1 , PWR2 , PWR3) 

!F( (HPRT2.GT.Q) .AND.(MIETH.GT.l)) WRITE(NF0UT,5)PWR1, 

> PWR2,PWR3 

IF((NPRT2.GT,0) .AND.(NMETH.EQ.l)) WRITE(NFOUT ,5) (TOTPWR 
1 (15,1=1,3) 

C. 

IF(SMF( 1+2,1) .GT.1.0E-10) CALL BFC0NT( ISP, RH0(1 , ISP) ,NLEM(ISP) , 

1 NE.TE,AN(ISP,1) ,AN(ISP,2) , SMF( 1+2,1) , WAVEL, EMI S, ABSB ,NARRAY, 

2 NF OUT , NPRT2 , NFE RR , hMETH , TOTPWR) 

IF(SMF(I+3,1) .GT.1.0E-10) CALL FFCONT(ISP,NE,TE, 

1 AN(!SP,2) ,SMF(I+3,1) ,WA^EL ,EMI S , ABSB,NARRAY ,NFOUT , 

2 NPRT2,NFERR,MiETH, TOTPWR) 

I F (NPRT2 . 6T . 0 ) WRITE (NFOUT ,6) ( AT0M( I , I SP) , I =1 , 2) 

6 FORMAT ( IX, 2A3,14H ATOM FINISHED ) 

C 

C CALCULATE GLQBAL(4 PI STER-RADIAN) POWER EMISSION 

I F(MMETH . 6T . 1 ) CALL GLBPWR ( WAUEL , EMI S , NARRAY , PWR1 , PWR2 , PWR3 ) 

IF ( (NPRT2, GT .0 ) .AND. (NMETH.GT .1 ) ) WRITE(NFOLFT ,5)PWR1 , 

> PWR2,PWR3 

I r ( (NPRT2, 8T . 0 ) .AND . (M1ETH. EQ.l ) ) WRITE(NFOUT ,5) (TOTPWR 
1(1), 1=1,3) 

1 CONTINUE 
C 

C CALCULATION OF MOLECULAR RADIATION 
ANM0L(1)=N2P 
AMi0L(2)=N2P 
AWQL(3)=N2 
AM1QL(4)=N2 
ANM0L(5)=N2 
ANM0L(6)=N2 
AMiOL(?)=N2 
AMM0L(S)=N2 
ANM0L{9)=N0 
AM1OL(10)=NO 
AW0L(11)=N0 
ANM0L(12)=N0 
AMi0L(13)=N0 
ANM0L(14)=02 
ANMOL(15)=02 
AW0L(16)=02 
AWGL(17)=Q2 
AMiOL (18) =CN 
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ANM0L(19)=CN 
AWOL(20)=CN 
DO 2 JSPEC2=1,20 

! F ( SMF ( JSPEC2 , 2 ) . LT . 1 . 0 E-10 ) GO TO 2 

CALL SETUP( JSPEC2 , SMF ( JSPEC2 ,2) ,ANMOL( JSPEC2) ,T,TV,TEX) 

CALL VUVL( JSPEC2,SMF( JSPEC2,2) , NE, PRESS, W I DTHF, STARK, 

>DENS , WA^EL , ENI S , ABSB ,NARRAY ,NFOUT ,NPRT2 ,NFERR ,NMETH , TCH PWR ) 
IF(NPRT2.8T .0) WRITE(NF0UT,7) (AMOLECU .JSPEC2) ,1=1,2) 

7 FQRMAT(1X,2A3,10H FINISHED ) 

C 

C CALCULATE GL0BAL(4-PI STER-RADIAN) POWER EMISSION 

IF(NMETH.GT.1)CALL GLBPWR ( WWEL , EM I S , NARRAY , PWR1 , PWR2 , PWR3 ) 
IF<(NPRT2.GT.O) .AND. (MiETH.GT.l) ) WRITE(NF0UT,5)PWR1, 

) PHR2,PWR3 

IF(hWETH.EQ.l) GO TO 10 
T0TPWR(1)=PWR1 
T0TPWR(2)=PWR2 
TOTPWR(3)=PWR3 
10 CONTINUE 

5 FORMAT(30H GLOBAL POWER EMISSION. TGTAL= I 1PE12.5,2X, 

1 13HAB0VE 2500 A=,E12.5,2X,13HAB0VE 3500 A=,E12.5, 

2 6H W/CM3) 

IF((NMETH.EQ.l) .AND. (NPRT2.6T.0) ) WRITE(NF0UT,5) (TOTPWR 
1(I),I=1,3) 

2 CONTINUE 
RETURN 
END 

★DECK BFCONT 

SUBROUTINE BFCONT (ISP, RHQ ,NLEV ,ANE ,TE , AN , ANP ,SMF ,WAVEL , EMI S , 

> ABSB, NARRAY, NFOUT,NPRT,NFERR,NMETH, TOTPWR) 

C 

C CALCULATES EMISSION AND ABSORPTION COEFFICIENTS DUE TO BOUND-FREE 
C CONTINUE 

C SUBROUTINE RADIN MUST BE EXECUTED BEFORE THIS SUBROUTINE CAN BE 
C EXECUTED 

C INPUT PARAMETERS 
C ISP=SPECIES INDEX. 1=N, 2=0 

C RHO=NQNEQUI LIBRIUM POPULATION PARAMETER, DIMENSIONED 23 

C NLEV=NUMBER OF LEVELS 

C ANE=ELECTRQN DENSITY', CM-3 

C TE=ELECTRON TEMPERATURE, K 

C AN=NUMBER DENSITY OF ATOM 

C ANP=NUMBER DENSITY OF ION 

C SMF=STRENGTH MULTIPLICATION FACTOR 

C WAVEL=WAVELENGTH, A 

C NARRAY=LENGTH OF NAVEL, EMIS, ABSB ARRAYS 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT OUT INDEX. 0=NO PRINT. l=SfttLL PRINT. 2=LAR6E PRINT 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C NMETH=1 , EMinED POWER ONLY. =2 SPECTRAL CALCULATION 
C OUTPUT PARAMETERS 

C EMIS=EMISSION COEFFICIENT, W/(MICR0N-CM2-SR) 

C ABSB=ABSORPTIONFSTIMULATED EMISSION COEFFICIENT, CM-1 

C T0TPWR(3)=P0WER EMITTED 

C0MM0N/RADA/AT0M(4,2) ,LAT0M(4,2) ,GLEV(8,2,2) ,ELEV(8,2,2) ,BLINE 
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1 (13,180,2) ,NBFC0N(2 f 35,2),a r C0N(14 t 35,2),TFF(5) ,EEFF<6) , 

2 FFC0N(6,5,2) 

DIMENSION RHQ(23) ,WCUTS(35) ,WCUTL(35) ,EX(10) ,RHOLOG(23) 

> ,T0TPWR(3) 

DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

DATA EX/O. ,0.05,0.1,0.15,0.2,0.25,0.3,0.35,0.4,0.45/ 

C 

C NULL EMIS ARRAY FOR TOTAL POWER CALCULATION 
IF(NMETH.GT.l) GO TO 12 
DO 11 M-l ,NARRAY 

11 EMI S(M) =0 . 

12 CONTINUE 
C 

C CALCULATE PARAMETERS 
EI0N=AT0M(4,ISP) 

TE1=1 ./TE 
TE2=SQRT(TE1) 

TE3=TE1*TE2 
PARTI =0. 

DO 1 JLEV=1,4 

1 PARTI =PARTRGLEV( JLEV ,2 , 1 SP)*£XP( -1 . 43877*£LEV( JLEV ,2, ISP)* 
>TE1) 

AZ=2 . 07E-1 6*ANP*TE3/PART I 
C 

C GENERATE ALOG OF RHO 
DO 2 JLEV=1,NLEV 
RHOJ=RHO( JLEV) 

IF(RHOJ.GT.l.OE-SO) GO TO 6 
WRITE (NFERR , 7 ) ISP, JLEV, RHGJ 
7 FQRMAT(22H ERROR IN BFCONT. ISP=,I3,3X,6H JLEV=,I3, 
>3X,4HRHO=,1PE10,3,3X,18H RHO SET TO l.E-10) 

RHOJ-l.OE-lO 

6 RHOLOG(JLEV)=ALOG(RHOJ) 

2 CONTINUE 
C 

C GENERATE CUT-OFF WAVELENGTHS 
C WCUTS= SHORT -WAVE END. WCUTL=LGNG-WAVE END. 

NC0N=LAT0M(2,ISP) 

DO 3 J=T ,NCON 
EJ=BFC0N(14,J,1SP) 

WCUTLC J ) =1 . QE8/ ( El ON-E J ) 

WCUT S ( J ) =1 . 0 E8/ ( E I ON-E J+0 . 5*109679 . ) 

3 CONTINUE 
C 

C 

C CYCLE OVER WAVELENGTHS 
DO 4 L=1 ,NARRAY 
WAVEX=WAVEL(l) 

DO 5 J=1 ,NCON 

. !F((WAVEX.LT.WCUTS(J)) .0R,(WAVEX,6T.WCUTL( J))) GO TO 5 
WU=1.0E8/WAVEX 
EE=(HNU-(EION-EJ))/109679. 

CC-7 . 908E-18*(i0%79 ,/HNU)**3/NBFC0N( 1 , J , I SP)**5 
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c~> <r> 


MQN=0 

CALL TAINT ( EX, BFC0N(1,J, ISP) ,EE,GAINT,10,3,1ER,MON) 
CROS=CC*GAUNT 

f; 

C CONSTRUCT EMISSION AND ABSORPTION COEFFICIENTS 
GL=BFCQN(13,J,ISP) 

N6=NBFC0N(2,J,!SP) 

APEN=AZ*GL*EXP( 1 , 43877*( El 0N-EJ)*TE1 ) 

ANJ=APEN*ANE*RH0(N6) 

r 

C EXCITATION TEMPERATURE TEX 

TEX=1 . 43877* ( E I ON-EJ ) / ( RHQL0G(N6 )+l . 43877* ( El ON-E J)*TE1 ) 

C 

XL#1=m>EX*l .OE-S 
AX=EXP(-1.43877/(XLAM*TEX) ) 

BX=XLAM**5 

BLAM=1.1904E-ib*AX/(BX*( l.O-AX)) 

ABSBL=ANJ*CROS*SMF 
EM1SL=ABSBL*BLAM 
ABSB ( L ) =ABSB ( L ) +AB SBL 
EMIS(L)=EM1S(L)+EMISL 
5 CONTINUE 
4 CONTINUE 
C 

C CALCULATE GLOBAL POWER EMISSION 
IF(MIETH.GT.l) GO TO 10 
CALL GLBPWR( WAVEL , EMI S ,NARRAY , PWR1 , PWR2 , PWR3) 

IF(NPRT.GT.l) WRITE(NFOUT,9)(ATOM(I, ISP), 1=1,2) ,PWR1, 

1 FWR2,PWR3 

9 FORMAT (1X,2A3,1X,33H BOUND-FREE CENT. ,PWR1,PWR2,PWR3=, 

1 1P3E10.3) 

TOTFWR ( 1 ) =TOTPWR ( 1 ) +PWR1 
TOTPWR ( 2 ) =TOTPWR ( 2 )+PWR2 
TOTPWR ( 3 ) =T OTPWR ( 3) +PWR3 
10 CONTINUE 
C 

C PRINT OUT 

IF(NPRT.GT.l) WRITE(NF0UT,8) (ATOM(I ,ISP) ,1=1,2) 

8 FORMAT ( IX , 2A3 , 30H BOUND-FREE CONTINUUM FINISHED ) 

RETURN 

END 

★DECK FFCONT 

SUBROUTINE FFCONT(ISP,ANE,TE,ANP,SMF,WWEL,EWS,ABSB, 

> NARRAY ,NFOUT ,NPRT ,NFERR ,NMETH , TOTPWR) 

C COMPUTES FREE-FREE CONTINUE 
C INPUT PARAMETERS 

ISP=SPECIES INDEX. 1=N. 2=0 
ANE=ELECTRON DENSITY, CM-3 
C TE=ELECTRON DENSITY, K 

C ANP=ION DENSITY 

C SMF=STRENGTH MULT I PL I CAT I CM FACTOR 

c wwel=wa»;elength, a 

C NARRAY=LENGTH OF WAVEL, EMIS, ABSB ARRAYS 

C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PR1NT OUT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 
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C NFERR=FILE NUMBER OF ERROR MESSAGES 
C NMETH=1, EMITTED POWER CALC ONLY. =2 SPECTRAL CALC. 

C OUTPUT PARAMETERS 
C EMIS=EMISSIQN COEFFICIENT 

C ABSB=ABSORPTION COEFFICIENT 

C T0TPWR(3)=T0TAL EMITTED POWER 

REAL LAMBDA 

C0fti0N/RADA/AT0M(4,2) ,LAT0M(4,2) ,GLEV(8,2,2) ,ELEV(8,2,2) , BLINE 

1 (13,180 ,2) ,NBFC0N(2,35,2) ? BFC0N(14,35,2) ,TFF(5) ,EEFF(6) , 

2 FFC0N(6,5,2) 

DIMENSION Y(6),SIGM(6),TOTPWR(3) 

DIMENSION WAUEL(l) 

DIMENSION' EMIS(l) 

DIMENSION ABSB(l) 

RYD=1 09679. 

RYD1=1./RYD 

TEl=i./TE 

Cl = 1 . 368E-23*ANE*ANP*SQRT (TE1 ) 

C 

C NULL EMIS ARRAY FOR TOTAL POWER CALCULATION ONLY 
IF(NMETH.GT.i) GO TO 3 
DO 4 M=1 ,NARRAY 
4 EMIS(M)=0. 

3 CONTINUE 
C 

C INTERPOLATE D OF PEACH FOR TE 
DO 6 JS=1,6 
MON=0 

DO 7 JT=1,5 

7 Y(JT)=FFCON(JSjJT,ISP) 

CALL 7AINT(TFF,Y,TE,SIG,5,2,IER,M0N) 

6 SIGMA(JS)=SIG 
C 

C CYCLE OVER WAVELENGTH 
MON=0 

DO 1 M=1 jNARRAY 
LAHBDA=1.0E-8*WAVEL(M) 

0MEG=i. 0/LAMBDA 
AZ=0MEG*RYD1 

CALL TAINT(EEFF,S1GMA,AZ,D,6,3,IER,M0N) 

GHPFF=i . 0+0 . 1728*(AZ**0 . 333333)*(1 . 0+1 . 39*TE*LAMBDA) 

GAUNT =GHPFF*( 1 . 0+D)*SMF 
ABSBX=C1*GAUNT*(LAMBDA**3) 

AZ-EXP(-1 .43879* 0MEG+TE1) 

BZ=LAMBDA**5 

BLAM=1 . 1 904E-1 6*AZ/ ( BZ* ( 1 . 0-AZ) ) 

EMI SX=ABSBX*BLAM 
EMIS(M)=EMIS(M)+EMISX 
ABSB ( M ) =ABSB ( M ) +ABSBX 
1 CONTINUE 
C 

C CALCULATE GLOBAL POWER EMISSION 
IF(WETH.GT.l) GO TO 10 
CALL GLBFWR ( WAVEL , EMI S , NARRAY , PWR1 , PWR2 , PWR3) 

IF(NPRT.GT.l) WRITE(NFOUT,9) (AT0M(I , ISP) ,1=1,2) ,PWR1, 
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1 PWR2,PWR3 

3 FORMAT ( IX, 2A3, IX, 32H FREE-FREE CONT . , PWR1 , PWR2 , PWR3= , 

1 1P3E19.3) 

TOT PWR ( I ) =TGT PWR ( 1 ) +PWR1 
T QTPWR ( 2 ) =TOTPWR ( 2 ) +PWR2 
T QTPWR ( 3 ) =T OT PWR { 3 ) +PWR3 
10 CCNT1NUE 


C PRINT OUT 

IF(NPRT.GT.l) WR!TE(NF0UT,2) (AT0M(I ,ISP) ,1=1,2) 

2 FORMAT ( IX, 2A3,33H ION FREE-FREE CONTINUUM FINISHED ) 

RETURN 

END 

*DECK ATOMIC 

SUBROUTINE ATOM! C( I SP ,ANE ,TE ,T,RHO,NLEV , AN, ANP, PRESS, DENS , SMF , 
> NAVEL , EMI S,ABSB ,NARRAY ,NFOUT ,NPRT,NFERR ,NMETH ,TOTPWR) 

C COMPUTES ATOMIC LINE 
C INPUT ARGUMENTS 
C !SP=SPECIE$ INDEX. 1=N. 2=0 

C ANE=ELECTRON DENSITY, CM-3 

C TE=ELECTRON TEMPERATURE, K 

C T=HEAVY PARTICLE TEMPERATURE, K 

C RHO=NONEQUI LIBRIUM POPULATION PARAMETER 

C NLEV=NUMBER OF ENERGY LEVELS 

C AN4ILMBER DENSITY OF NEUTRAL ATOM 
C ANP=NUMB£R DENSITY' OF ION 

C PRESS=PRESSURE, ATM 

C DENS=GAS DENSITY, G/CM3 

C SMF=STRENGTH MULTIPLICATION FACTOR 

C WAVEL=WAVELENGTH 

C NARRAY=LENGTH OF WAVEL, EMIS, ABSB ARRAYS 

C NFOUT =FI LE NUMBER OF OUTPUT PRINTS 

C NPRT=PRINT- OUT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 
C NFERR=FILE NUMBER OF ERROR MESSAGES 

C NMETH=1, EMITTED POWER ONLY. =2, SPECTRAL CALCULATION 
C OUTPUT PARAMETERS 

C EMI S=EMI SSI ON COEFFICIENT. W/(MI CR0N-CM2-SR) 

C ABSB=AB30RPT I OH- ST I MULATED EMISSION COEFFICIENT, -1 

C T0TPWR(3)=T0TAL EMITTED POWER 

REAL LAMCL, LAMBDA 

CCMiCN/RADA/AT OM ( 4 , 2 ) ,LAT0M(4,2) ,GLEV(8,2,2) ,ELEV{8,2,2) , CLINE 

1 (13,180,2) ,NBFC0N(2,35,2) ,BFC0N(14,35,2) ,TFF(5) ,EEFF(6) . 

2 FFC0N(8,5,2) 

DIMENSION RH0( 23) ,T0TPWR(3) 

DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

C 

PWR!=0. 

PWR2=0 . 

FWR3=0. 

C 

C CALCULATE PARAMETERS 

DELLAM=( 1 . 0/WAVEL(l ) -1 .G/WAVEL(NARRAY) )/(NARRAY-i ) 
EI0N=AT0M(4,ISP) 
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TE1=1,/TE 

TE2=SQRT(TE1) 

TE3=TE1+TE2 

QA=0. 

QP=0. 

DO 1 J=l,8 

QA=QA+6LB;(J,1,ISP)*EXP(-1.438?7*ELEV(J,1,ISP)*TE1) 

1 QP=QP+GLEV(J ,2,1 SP)*EXP( -1 . 43877*ELEV( J , 2 , I SP }*TE1 ) 
AZ=2.07E-16*ANP*TE3/QP 
C 

C DETERMINE NUMBER DENSITY AND AVERAGE ATOMIC WEIGHT OF 
C FOREIGN GAS 
ANREST=1.0E10 

I F ( PRESS .GT.1.0E-20) ANREST=0 . 8338E22*PRESS/T-AN 
AMREST =20 .*1 . 66E-24 

I F ( DENS . 3T . 1 . 0E-20 ) WREST=(DENS-1.66E-24*ATai(3,ISP) 

> *AN)/ANREST 

AMREST =AMREST/1 .66E-24 
IF(AMREST.LT.10.) AMREST=10. 

IF(AMREST.GT.28.85) AMREST=28.85 
CW3= ( 1 . 33£-29*SQRT( 2 . /ATOM( 3 , I SP) )*AN+5 . B5E-30*SQRT 
>(2,/AMREST)*ANREST)*SQRT(T) 

C 

C CYCLE OVER LINES 

NLINE=LAT0M(1,!SP) 

DO 6 K=1 ,NLINE 
GAM~BLINE(1,K,ISP) 

EXPN=BLINE(2,K,ISP) 

GL=BLINE(3,KjISP) 

GU=BLINE(4,K,ISP) 

TERMU=BLINE(5,K,ISP) 

E I NSTN=BL I NE ( 6 , K , I SP ) 

LAMCL=8LINE(7,K,ISP) 

TERML=TERMU-1 .0E8/LAMCL 

!F((GL.LT.D.5) ,0R.(GU.LT.0.5)) WRITE(NFERR,3) ISP,K, 

> LAMCL,GL,6U 

3 FORMAT (22H ERROR IN ATOMIC, ISP=,I2,3X,5HLINE=,I3,3X, 

1 6HLAMCL=,FB.1,3X,3HGL=,F5.1,2X,3HGU=,F5.1) 

C 

C DETERMINE NUMBER DENSITIES OF UPPER AND LOWER STATES 
APENL=AZ*ANE*GL*EXP( 1 . 43877*( El 0N-TERML)*TE1 ) 
APENU=AZ*ANE*GU*EXP( 1 . 43877* ( E I QN-TERMU)*TE1 ) 
NGL=BLINE(12,K,ISP) 

NGU=BLINE(13,R,ISP) 

ANL=APENL*RHO(NBL) 

ANU=APENU*RHO(NGU) 

C FIND INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION 
E=1 ,580E-16*EINSTN*ANU/LAMCL 
E‘E*SMF 

C 

C DETERMINE TOTAL POWER FOR WET H=1 
IF(WETH.GT.l) GO TO 11 
I F ( LAMCL . GT . IWEL ( 1 ) ) PWRl=PWRl+i 2 . 57*E 
I F ( LAMCL . GT . 250 0 . ) PWR2=PWR2+1 2 . 57*E 


57 



I F ( LAMCL , 6T . 3500 . ) PWR3=PWR3-fi 2 . 57*E 
GO TO 6 
11 CONTINUE 
C 

C NONEQUILIBRIUM EXCITATION TEMPERATURE TEX 

TEX=1 . 43877* (TERMU-TERML ) /ALOG( GU*ANL/ ( GL*ANU) ) 


C LINE WIDTH CALCULATION 

MI DTHG=7 . 1 SE-7*LAMCL*SQRT ( T/ATOM( 3 , I SP) ) 

RANGE =30 , 

IF(TERML,LT. 40000.) RANGE=100. 

IF (TERML.LT. 10000.) RANGE=200 . 

C L0RENT2 LINEWIDTH WIDTHL IS A SUM OF WI DTH1 (NATURAL) , WI DTH2< STARK) , 
C WIDTH3(UAN DE l^LS), AND WIDTH4( RESONANCE) WIDTHS 
IF(GAM.LT.i,0E-8) EXPN=0.33 
DE= E I ON-T E RMU 

l F( DE. LT.f 199679. /25.)) DE=109679./25. 

IF(GAM.LT.l.OE-B) GW=0.42*(LAMCL**2)/(DE**2) 

5 CONTINUE 
WIDTHl=i.l8E-4 

W!DTH2=2.0*Gtf1*(TE*! .0E-4)**EXPN*ANE*1 .OE-16 
WJDTH3=CW3*LAMCL**2 

WI DTH4=1 .03E-25*{1 . 0E-20*LAMCL**5)*SQRT( GU/GL)*EINSTN*ANL 
WI DTHL=WI DTH1+WI DTH2+WI DTH3+WI DTH4 
C 

C FIND THE VOIGT LINE WIDTH AT HALF-HEIGHT 

WI DTHV=WI DTHL/2 . O+SQRT ( WI DTHL**2/4 . 0+W! DTHG**2) 

f; 

C TEST IF LINE LIES WITHIN THE RANGE 
W1=LANCL-RANG£*WID7W 
W2=LAMCL+RANGE*WI DTFfv* 

IF(W2.LT.WAVEL(1)) GO TO 6 
I F ( WI . GT . WAVEL ( NARRAY ) ) GO TO 6 
DELLQC=LAMCL**2*DELLAM 
NSPRED=1 . 1+RANGE*WI DTW/DELLOC 
C 

C SET CONSTANTS USED TO DISTRIBUTE ATOMIC LINE 
NCENTR=( 1 ,/WAVEL(l -1 . 0/ LAMCL )/DELLAM+l 
NST ART =NCENT R -NSPRED 
IF(NSTART.LT.l) NSTART=1 
NEND =N C ENT R+NSP RE D 
I F ( NEND . GT . NARRAY ) NEND=NARRAY 
C 

C DISTRIBUTE ATOMIC LINE 
WD1=1/WIDTHV 
XLAM=LAMCL*1.0E-8 
AX=EXPt -1 . 43877/ (XLAM*TEX) ) 

3X=XLAN**5 

BLAM=1 . 1904E-16*AX/( BX*( 1 . -AX) ) 

r 

C TEST IF SHAPE IS NEARLY DISPERSIVE 

IRfWIDTHG/WIDTHL) .GT.0,2) GO TO 8 
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c 

C LINE IS NEARLY DISPERSIVE 
WD2=2.0*WD1 
DO 10 M=NSTART ,NEND 
LAMBDA =WAVEL(M) 

I F( LAMBDA. LT.W1) SO TO 10 
I F( LAMBDA. GT.W2) GO TO 10 
DELL=ABS( LAMBDA-LAMCL) 

EMI SX=C . 3183E4*E*WD2/(1 .0+(DELL*WD2)**2) 
AB$BX=EM1SX/BLAM 
ABSB(M) =ABSB(M)4ABSBX 
10 EMIS(M)=EM1S(M)+EMISX 
SO TO £ 


i V. 


C 

C LINE IS WIGHT 
8 CONTINUE 

CSPRD2=WI DTHL/WI DTW 

CSPRD3-( 1 .065+0 . 44?*CSPRD2+0 . 058*CSPRD2**2)*W! DTHV*1 .OE-4 

CSPRD1=( 1 . -CSPRD2)/CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

DO 2 M=NSTART,NEND 

LAMBDA=WAVEL(M) 

CSPRD3=ABS( (LAMBDA-L^CL)*WD1) 

CSP2=CSPRD3**2 
CSP3=CSP2*SQRT ( 3QRT { CSPRD3) ) 

EMI SX=E* ( CSPRD1*EXP( -2 . ??2*CSP2)+CSPRD2/( 1 .+4 ,*CSP2)+0 .016* 
1CSPRD2*( 1 . 0-WI DTHL*WD1 )*( EXP( -0 . 4*CSP3)-10 .0/(10. 0+CSP3) ) ) 
ABSBX=EMI SX/BLAM 
ABSB(M)=ABSB(M)+ABSBX 
2 EMI S(M) =EMI S(M)+EMI SX 

0 

C PRINT OUT 

IF(NPRT.GT.l) WRITE(NF0UT,7) (AT0H( 1 , ISP) , 1=1 ,2) , 

> LAMCL,WIDTHG,WIDTH1,WIDTH2,WIDTH3,WIDTH4,WIDTHL, WIDTHS 
7 F0RMAT(1X,2A3,2X,6HLAMCL=,F8.1,2X, 
>25HLiNEWIDTHS:G,l,2,3,4,L,V=,lP7E3.2) 

6 CONTINUE 


C WRITE TOTAL POWER EMITTED 

IF((NMETH.EQ.l) .AND.(NPRT.GT.l)) WRITE(NF0UT,12) (ATOM 
1 (I ,1SP) ,1=1,2) ,PWR1,PWR2,PWR3 

12 FORMAT ( IX , 2A3 , IX , 22H LINES:PWR1,PWR2,PWR3=,1P3E10.3) 
IF(NMETH.GT.l) GO TO 13 

TOTPWR ( 1 ) =T OTFWR ( 1 ) +PWR1 
T0TPWR(2)=T0TPWR(2)+PWR2 
T0TPWR(3)=T0TPWR(3)+PWR3 

13 CONTINUE 
C 

C PRINT oin 

IF(NPRT.GT.O) WRITE(NF0UT,4) (AT0M(1,ISP),I=1,2) 

4 FORMAT ( IX, 2A3,15H LINES FINISHED )' 

RETURN 

END 
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★DECK SETUP 

SUBROUTINE SETUP (JSPEC2,SMF,AW0L,T, TV ,TEX) 

C SETS UP SPECTROSCOPIC CONSTANTS AND STORES 
C INPUT PARAMETERS 
C JSPEC2=SPECTRA NUMBER 

C SHF = ST REH6T K MULTIPLICATION FACTOR 

C ANMO’l=NIMBER DENSITY OF MOLECULE 

C T=HEAVY PARTICLE TRANSLATIONAL AND ROTATIONAL TEMPERATURE 

C TV=VIBRATIGNAL TEMPERATURE 

C TE=ELECTRCN TEMPERATURE 

REAL MUrNUSPIN,NUBARO 

COft1CNyRADB/AfiOLEC(3,20) , LH0LEC( 6 ,20 ) ,SPEC2(8,20,20) ,ViB(4. 

> 100 , 20 ) 

CQftIGN/ CBANDi /ALPHAU , BEU , BETAU , CAPAU , CARLO , DEU , DZEROU , REU ,TERMU , 
1 ALPHAL , BEL , BETAL , CAPAL , CAPLl , DEL , DZEROL , REL ,TERML 

CQMM0N/CBAND2/WEU , WEXEU , WEYEU , WEZEU , BVU , DVU , DESENU ,MU , ALTNAT , 

1 WEt , WEXEL ,NEYEL ,WEZEL , BVL , DVL , 'NUSPIN 

CCW10N/CTEMP/TELECT ,TVI B , TROT 

CQff !OH/CTRAN/ p ARTCC ,NUBAR0 , Q , AOE , CINT1 , CINT2 , KMIN , KMAX , Ri 
i,PWRl ,FWR2,PWR3 

COMION/CEXTRA/INDEX, SYSTEM, TOTAL 

CGMiCHYCF AST/SPEED ,NSPEED , LINE1 ,NSTART , NEND , LAMCL , E , CSPRDi , CSPRD 

DIMENSION TEX(20) 

DIMENSION ALPHA(12) ,BE(12) ,DE6EN(12) ,TERM(12) ,WE<12) , 

1 WEXE(12) ,WEYE(12) ,WEZE(12) 

LOGICAL LINE! 

C 

C EQUATE TEMPERATURES AND NUMBER DENSITY 
TEMP-T 
TROT=T 
TV1B=TV 

TELECT =TEX( JSPEC2 ) 

PARTCC=ANMOL 


LINEi=.TRUE. 

ALTNAT = SPEC2(2,1, JSPEC2) 

DEU = SPEC2(3,1,JSPEC2) 
BETAU = SPEC2( 4,1, JSPEC2) 

REU = SPEC’2(5,1 , JSPEC2) 
DZEROU = SPEC2(6,1,JSPEC2) 
CAPAU = SPEC2(7,1, JSPEC2) 
CAPLL! = SPEC2(8,i . JSPEC2) 

MU = SPEC2(1,2, JSPEC2) 
NUSPIN = SPEC2(2,2,JSPEC2) 

DEL = SPEC2i'3,2, JSPEC2) 
BETAL = SPEC2(4,2 f JSPEC2) 

REL = SPEC2(5,2,J8PEC2) 
DZEROL = SPEC2(6,2, JSPEC2) 
CAPAL = SPEC2(?,2,JSPEC2) 
CAPLL = SPEC2(S,2,JSPEC2> 
LEVELS=LMGLEC( 3, JSPEC2) 

DO 40 M=i, LEVELS 
DEGEN(M) = SPEC2(1 ,M+2, JSFEC2) 
TERM (M) ■= SPEC2( 2 ,M+2 , JSPEC2) 
NE .(M) = SPEC2(3,M+2, JSPEC2) 
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WEXE (M) = SPEC2( 4 ,Mf 2 , JSPEC2) 

WEYE (M) = SPEC2( 5 ,M+2 , JSPEC2) 

WEZE (M) = SPEC2( 6 ,M+2 , JSPEC2 ) 

BE <M) = SPEC2( 7 ,M+ 2 , JSPEC2) 

40 ALPHA(M) = SPEC2 ( 8 , H+2 , JSPEC2 ) 

ALPHAU=ALPHA(i) 

ALPHAL=ALPHA(2) 

BEU-BE(l) 

BEL=BE(2) 

BEGENU=DE6EN( 1 ) 

TERMU-TERM(l) 

TERML=TERM(2) 

WEU=WE(1) 

WEL=WE(2) 

WEXEU4JEXEU) 

WEXEL*WEXE(2) 

WEYEU=WEYE(1) 

WEYEL=WEYE(2) 

WEZEU41EZE(1) 

WE2EL=WE2E(2) 

INDEX=LMOLEC( 1 , JSPEC2) 

r 

Lr 

C FIND Q, THE PARTITION FUNCTION REFERENCED TO THE EQUILIBRIUM POSITION 

C OF THE GROUND STATE POTENTIAL WELL. 


Q=0.0 

DO 70 M=l, LEVELS 

ovr=o.o 

QV=0,0 

EV!B1=0.0 

V=0.0 

60 EVlB24iE(M)*(V+0.5) 4IEXE(M)*(V+0.5)**2 +WEYE(H)*(LH-0.5)**3 

1 4WEZE(M)*(V+0.5)**4 

DELTQV=EXP{ -1 . 43879*EVIB2/TVI B) 

C COMPARE DELTA O-VI BRAT I ONAL TO 0.1 PERCENT OF THE QV SUM TO THIS 
C POINT. 

IF (DELTQV .LE. 0.001*QV) GO TO 70 
C HAS THE VIBRATIONAL ENERGY REACHED A FICTITIOUS PEAK. 

IF (EVIB2 .LE. EVIB1) GO TO 70 
QV=qWDELTQV 

IF (ABS(BE(M)-ALPHA(M)*(V+0 .5)) .LE.l .OE-8) GO TO 65 
m=m +TROT*DELTQV/(1.43B79*(BE(M)-ALPHA(M)*(W0.5))) 

65 CONTINUE 

EVIB1=EVIB2 
V=W1.0 
GO TO 60 

70 Q=Q +QMR*DE6EN(M)*EXP(-1.43879*TERM(M)/TELECT) 

C FIND STRENGTH FACTOR MXIMUM 
NV=LM0LEC( 2 , JSPEC2 ) 

SYSTEMS. 

DO 1 JV=1 

VL=MIB(2, JV, JSPEC2) 
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SUHRE2=VIB(3 , JV , JSPEC2)*SMF 
FRANCKS I B( 4 , JV , JSPEC2) 

EV18=VL*WEL -UL^^EXELm^3*WEYEL4VLM^EZEL+TERML 
S=SUM R E 2*F RANCK* EX P ( -1 . 4388*EVI B/TVIB) 

$YSTEM=AMAX1(S, SYSTEM) 

1 CONTINUE 
FWR1=0. 

PWR2=0. 

PWR3=0. 

RETURN 

END 

★DECK VUVL 

SUBROUTINE VWL ( JSPEC2 , SHF , ANE , PRESS ,WI DTHF , STARK , DENS } WAVEL , 

> EM I S , ABSB , NARRAY , NFOUT , NPRT ,NFERR , NMETH , TOTPWR ) 

C SETS CONST PITTS FOR EACH VIBRATIONAL BAND AND CALCULATE 
C INPUT PARAMETERS 
C JSPEC2=SPECTRA NUMBER 

C SMF=$TRENGTH MULTIPLICATION FACTOR 

C ANE=ELECTRGN DENSITY, CH-3 

C PRES$=PRESSURE, ATM. ZERO SETS NUM. DEN. OF FOREIGN GAS TO 0 

C WIDTHF=LORENTZ WIDTH MULTIPLICATION FACTOR 

C STARK-STARK WIDTH AT ANE=i.E16 AND TE=10000 

C DENS=DENSITY, G/CM3 

C WAVEL4IAVELENGTH, A 

C NARRAY=LENBTH OF NAVEL , EMI 8, ABSB ARRAYS 
C N r OUT=FILE NUMBER OF OUTPUT PRINTS 

C NPRT=PRiNT OUT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 


C NFERR=FILE NUMBER OF ERROR MESSAGES 
C NMETH=1, EMITTED POWER CALC ONLY. =2, SPECTRAL CALC. 
C OUTPUT PARAMETERS 


C 

C 


EMI 8=EMI SSION COEFFICIENT, W/(M! DR0N-CM2-SR) 

ASSB=ABSORPTI ONf STIMULATED EMISSION COEFFICIENT, CM-1 
TOTPWR(3)=TOTAL EMITTED POWER 
REAL MU .NUSPIN ,NAME ,NUBAR0 ,LAMMIH 
COfflON/'RADB/AMOLECC 3 ,20), LMOLEC{ t , 20 ) , SPEC2( 8 , 20 ,20 ) , V! B i 4 , 
> 100 , 20 ) 

COTtlON/COMH/CONF 


COMMON /CFAST/SPEED ,NSPEED , LINE1 ,NSTART ,NEND , LAMCL , E , CSPRD1 , CSPRD2 
C0MM0N/C8AND1/ALPHAU , BEU . BETAU , CAPAU, CAPLU ,DEU , DZERQU , REU ,TERMU , 

1 ALPHAL , BEL , BETAL , CAPAL , CAPLL , DEL , DZEROL , REL , TERML 

C0MMGN/CBAND2/WEU , WEXEU , WEYEU , WEZEU , BVU , DVU , DEGENU ,MU , AL .'NAT , 

1 WEI , WEXEL ,WEYEL , WEZEL , 3VL , DVL, KUSPIN 

COtlON/CTEMP/TELECT ,TVIB,TROT 
COftiON/'CWI DTK/W1 DTHL ,WI DTHV , RANGE , DELLAM , LtftilN 
C0ff!QN/C7 RAN/PART CC ,NUBAR0 , Q , AOE , CINT1 , CINT2 , KM1N . KMAX , R1 
IjFWRl f PWR2,PWR3 

COWQN/CEXTRA/INDEX , SYSTEM , TOTAL 
DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB (1 ) 

DIMENSION TOTPWR- 3) 

LOGICAL LINE1 


LAHM!N=i/WAVEL(lJ 

DELlAM=U ./NAVELU --1 ./NAVEL (NARRAY) )/{NARRAY-i ) 
A3E=2.5415785£-i3 
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C-2.9979E+10 
PI=3. 1415927 
TEMP=TROT 

NV1B=LM0LEC(2,JSPEC2) 

C 

C DETERMINE NUMBER DENSITY AND AVERAGE MOLECULAR WEIGHT OF 
C FOREIGN GAS 
ANREST=1 .0E10 

i F ( PRESS . GT . 1 . 0E-20 ) FNREST=0 . 8338E22*PRESS/TEMP-PARTCC 
ANREST=20.*1.66E-24 

I F ( DENS . GT . 1 . 0E-20) AMR£STs(DENS-1.66E-24*M0LEC(3,JSPEC2) 

1 *PARTCC)/ANREST 
AMREST=AMREST/1 . 66E-24 
I F( AMREST.LT. 10.) AMREST=10, 

IF (AMREST .GT.28.85) MREST=28 . 85 
r 

C CYCLE OVER BANDS 
DO 1 JVIB=1 ,NMIB 
VU = VIB(i,JVIB,JSPEC2) 

VL = VIB(2, JVI B , JSPEC2) 

C 

C COMPUTE ROTATIONAL CONSTANTS FOR THIS Btf4D 
BVU=BEU-ALPHAU*(VU+0.5) 

BVL=BEL-ALPHAL*(VL+0 .5) 

DVU=DEU+BETAU*(VU*0.5) 

DVL=DEL+BETAL*(VL+G .5) 

SUMRE2=VI B( 3 , JVI B , JSPEC2)*SMF 
FRANCK =VIB(4,JVIB,JSPEC2) 

KMIN=2 

ES^=TERML+VL*WEL-VL*i2*WEXEL+VL**3*WEYEL+VL**4*WEZEL 
I F( SYSTEM. LT.1.0E-10) KMAX=100 
I F ( SYSTEM . LT , 1 . OE-1 0 ) GO TO 3 
AHAX=(0 .695*TR0T*AL0G(1 .0E5*SUMRE2*FRANCK/SYSTEM)- 
) (TR0T/ / TV1B)*ESUM)/BVL 
I F ( AMAX . LT , 25 . ) GO TO 1 
KMAX=SQRT(AMX) 

3 RANGE=15. 

C 

C SET UP CONSTANTS FOR INTENSITY EQUATION IN ROTATIONAL STRUCTURE 
C AND COMPUTE NUBARO, THE BAND ORIGIN 

CINTi=TERMU/TELECT-f(WEU*(VU+0.5)-WEXEU*(VU+0.5)**2‘. 

1 WE:YEU*(VlH-0.5)^3+WE2EU*(VlH-0.5)**4)/TL ! IB 
CINT2=(16. 0 E-7*C*PART CC*FRANCK*SUMRE2*P 1 **3 )/ ( 3 . G* Q ) 

GPU=WEU* ( VLH-Q . 5 ) -WEXEU*( VU+0 . 5)**2+WEYEU*( VUH-0 . 5 )**3+WEZEU* ( 
>VU+0.5)**4 

GPL=WEL*(VL+0.5)-WEXEL*(VL+0.5)**2+WEYEL*(VL+0.5)**34WEZEL*( 

>VL+Q.5)**4 

NUBARO=TERMU-TERML+GPU-GPL 

R1=EXP(1 .43877*( (TERMU-TERML)/TELECT+(GPU~GPL)/TVIB) ) 
ORIGINS. OE+8/NUBARO 
I F ( ( 2 . 0*0R I G I N ) .LT.WAVEL(l)) GO TO 1 
IF((G.5*0RIGJN) .GT.WAVEL(NARRAY)) GO TO 1 
WIDTHG=7 ,16E-7*0RIGIN*SQRT (TEMP/AMOLEC( 3 , JSPEC2) ) 


63 



C LORENTZ LINEW!D T R WIDTHL IS A SUM OF WIDTHK COLLISIONS WITH LIKE MOLE- 
C GULES i , W1DTH2( COLLISIONS WITH ALL OTHER), AND WIDTH3(NATURAL) . 

C AND WIDTHS STARK) 

W1 DTHl=i . 33E-2?*SQRT ( 2 . 0/AMOLECC 3, JSPEC2) )*ORI 61N**2*SQRT ( T EMP) 
ItFARTCC 

W! DTM2-5 . S5E-30*SQRT ( i . 0/AMOLEC( 3 , JSPEC2)+1 ./AMREST )*0RIGiH**2 
1RSQRT ( TEM D RANKEST 
WiDTH!=WirHi*WIDTHF 
WI DTH3=WI DTN2*WI DTHF 
WIDTH3=i,18E-4 
IF-'ANE.LT.l .Gi ANE=1.0 

WI DTH4=1 . OE-8* STARK* ( 1 .0E-1S*ANE )**0 . 6*0RIG!N**2 
W I DTHL4; ! DTKi+NI DTH24W I DTH34W I DTH4 


C FIND THE VOIGT LINE WIDTH AT HALF-HEIGHT 

WI DTHV4IIDTHL/2 . DPSQRTt WI DTHL**2/4 . 0-WI DTHG**2 ) 

!F( INDEX. EQ.1) CALL ZERO ( WAV EL , EM I S , ABSB , NARRAY , NF OUT , 

> NPRT ,NFERR ,NMETH) 

IF< INDEX. Eq. 2) CALL ONE (WML, EM IS, ABSB, NARRAY ,NFOUT, 

> NPRT ,NFERR ,NMETH) 

I Ft INDEX. EQ. 3) CALL S2P 1 2 ( WAVE L , EM I S , ABSB , NARRAY , NFCUT , 

> NPRT,NFERR,W1ETH) 

IF (NPRT. G7 ,i) WRITE(NFOl!T,2) (AMOLEC( I , JSPEC2) , !=i ,2) 

1 ,Vt,Vl , OR! SIN, WIDTHS ,WI DTHL , SUMRE2 , FRANCK, KMAX 
2 r CRMA7 ( 1 X , 2A3 , 2X , SHVU , VL= , 2F 4 . 0 , 2X , 7HQR 1 6 1 N= , F9 . 2 , 2X , 

1 3H*! I DTHS , L - , 1P2E10 . 3 , 2X , 7HSUMRE2= , E10 . 3 , 2X , 7HFRANCK= , 

2 E10 . 3 ,2X , 5HKMAX= ,13) 

1 CONTINUE 


IF(NMETH.GT.l) RETURN 

I F( NPRT . G T . i ) WRITEfNFOUT , 4 ) (AM0LEC( I , JSPEC2) ,1=1,2), 
1 PWR1,PWR2,FWR3 

4 FORMAT ( IX , 2A3 , IX , 16H PWR1,PWR2,PWR3= ,1P3E10.3) 

T OT PWR ( 1) =T OTPWR ( 1 ) +PWR 1 

I F ( 1 . ES/NUBARG . GT . 2500 . ) TOTPWR( 2)=T0TPWR(2)+PWR2 
I F U . E8/NUBAR0 . BT . 3500 . ) TOT PWR ( 3) =T0TPWR( 3)+PWR3 
RETURN 


END 


*DECK ZERO 


SUBROUT ;NE ZERGINAVEL , EMI S , ABSB, NARRAY ,NFOUT ,NPRT ,NFERR,NHETH) 

C SUBROUTINE ZERO COMPUTES PARALLEL TRMSITIGNS FOR DIATOMIC H^ECULES. 
C INPUT PARAMETERS 
C WA , ;EL=WffUELENGTHS, A 

C NARRAY= LENGTH OF NAVEL, EMIS, ABSB ARRAYS 

C NF OUT =F I LE NUMBER OF OUTPUT PRINTS 

C NPRT=PR1NT OUT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE °R!NT 

C NFERP=FILE NUMBER OF ERROR MESSAGES 

C NMETH=i, EMITTED POWER ONLY. =2, SPECTRAL CALCULATION 
C 0UT°UT PARAMETERS 


C 


,EMiS=EMISS!ON COEFFICIENT, W/(MICRCN-CM2-SR) 

ABSB^ABSORPTI OH-STIMULATED EMISSION COEFFICIENT, CM-1 

REAL KU,KL,LAMCL,MU, LAMM I N , NUBAR , NUBARD , NUSP I N 

C9MMCH'T8#$i/ALPHAU , BEU , BETAU , CAPAU , CAPLU , DEL 1 , DZEROU , REU , TERMU , 


ALPHAL , BEL , BETAL , CAPAL , CAPLL , DEL , DZEROL , REL , TERML 
C0M1UN/CBAND2/’WEU , WEXEU ,WEYEU ,WEZEU , BVU , DVU , DEGENU , MU ,ALTNAT , 



NUSPIN 


1 WEL , WEXEL , WEYEL ,l£ZEL ,BWL,DUL, 

COMMOfVCTEHP/TELECT ,TVI 

COWON/CWI DTH/WI DTHL ,W! DTHV , RANGE , DELLAM , LAM1IN 
COMON/CTRAN/PARTCC ,NUBARO , Q , AQE, CINTi , CINT2 , KMIN , KMAX , R1 
1 ,PWR1,PWR2,PWR3 

COMMON/CEXTRA/INDEX , SYSTEM, TOTAL 

COMMON /CFAST /SPEED , NSPEED , L INE1 ,NSTART , NEND , LAMCL , E , CSPRD1 , CSPRD2 
COft!ON/CFSTl/Yl(4O0O) ,NJM,NJ 
DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

LOGICAL LINE1 
C 

C CALCULATE TOTAL POWER FOR NMETH=1 
IF(WETH.GT.l) GO TO 1 
A=A0E**2*CINT2*EXP(-1.43877*CINT1) 

7BYB=TR0T/(1.43877*8VU) 

SUME=A*(0 . 5WUBARO**4*TBYB+2.*NUBARO**3*(BVU-BVL)*TBYB**2+ 

1 2 . *NUBAR0**2* ( 3 . * ( BVU-8VL ) **2-2 .*NUBARQ*( DVU-DVL) )*TBYB**3 

2 +12. +NUBAR0* ( BVU-BVL )* ( ( BVU-BVL )**2-4 . *NUBARO* ( DMU-DVL ) 

3 )*TBYB**4) 

SUME=SUME*2.*12.57 

IF(1. CE8/NUBAR0 . GT, HAVEL (1 ) ) PWR1=PWR1+SUME 
I F (1 . EB/NUBARO . GT . 2500 . ) PWR2=PWR2+SIME 
I F ( 1 . E8/NUBAR0 . GT . 3500 . ) PWR3=PWR3+SUME 
RETURN 
1 CONTINUE 
r 

C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM THE LINE CENT 
C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

C SET CONSTANTS WHICH DETERMINE THE LINE SHAPE. 

CSPKD2=W!DTHL/WIDTHV 

CSPRD3=(1. 065+0. 447*CSPRD2+0.058*CSPRD2**2)*WIDTW*1.0E-4 

eSPRDl=(i.0-CSPRD2)/CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C SET CONSTANTS WHICH DETERMINE THE WAVELENGTH OF THE LINE CENTER FOR 
C TRIPLETS. SEE HERZBERG PAGE 235. 

YU=CAPAU/BVU 

YL-CAPAL/BVL 

DIVISR=2.0 

IF (CAPLU ,EQ. 0.0) DIVISR=1.G 

C SET CONSTANTS FOR THE P BRANCH AND INITIALIZE THE RINGING SUMS. 
CSTR=1.0 
KU-KMIN 
KL=KJJ+i .0 
10 CONTINUE 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS 
C EMISSION OF ALL SPECIFIED ROTATIONAL LINES FOR THE APPROPRIATE BRANCH 
DO 60 M=KMIN,KMAX 
Z2U=0.0 
Z2L=0.0 


C FOR A DESCRIPTION OF THESE EQUATIONS SEE HERZBERG PAGE 235. 
IF (DEGENU/DI VI SR .NE. 3.0) GO TO 20 
11 U=CAPLU**2*YU* < YU-4 . 0 )+( 4 . 0/3 . 0 ) +4 . 0*KU*( KU+1 . 0 ) 
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ZlL=CAPLL**2*YL*(YL-4 . 0 )+( 4 . 0/3 . 0 )+4 . 0*KL*( KL+1 . G ) 

Z2U= ( CAPLLNc*2*YU*C YU-1 . 0 )-( 4 .0/9 .0 )-2 . 0*KU*( KU+1 . 0 ) )/( 3 . 0*21 U) 
Z2t= ( CAPLL**2*Y L* ( YL-i . 0 )-( 4 . 0/9 . 0 ) -2 . Q*KL* ( KL+1 . 0 ) ) / ( 3 . 0*21 L ) 
C COMPUTE THE WAVELENGTH OF THE LINE CENTER IN ANGSTROMS, 

20 FPU=BVU*(KU*(KU+1 . )+4.0*Z2U)HMJ*(KW0 ,5)**4 
FPL=BVL*(KL*IKL+! . H4.0*Z2L)-DVL*(KL+G.5)**4 
NUBAR=NiJBAR0+FFL!-FPL 
R2-R1+EXP; 1 . 43377* ( FPU-FPL )/TR0T ) 

LAMCL=1 . OE+S/T'IUBAR 
DELL0t:=LAMCL+*2*DELLAH 
MSPRED=1 , 1+RANGEM DTHV/DELLQC 
C FIND THE STRENGTH FACTOR. 

5=K‘J+C$TR 

C DETERMINE IF LINES ALTERNATE IN INTENSITY. 

FACTORS. 0 

IF (ALTNAT ,EQ. 0.0) 60 TO 30 

C EVALUATE THE ALTERNATION FACTOR FOR HOMONUCLEAR MOLECULES. THE 
C EXPONENT IN THE ALTERNATING FUNCTION IS FOUND SEPARATELY TO ENSURE 
C THAT IT IS AN INTEGER BEFORE RAISING(-l.O) TO A POWER. 

KEXP= KL + ALTNaT +0.1 

FACTOR"! . 0 +( -1 . 0)**KEXP/( 2 . O+NUSPIN+1 . 0 ) 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SFTjNTANEOUS EMISSION E 
C AND SUM OF ABSORPTION AND STIMULATED EMISSION AK1 
30 E= F ACT OR* S* ( NU6AR**2*AG E ) ** 2*CI NT2*EXP ( - 1 . 4 3879+ ( C ! NT 1 

1 +(6VU*KU*(KU+1 .0) )/TROT)) 

ALAK=i.CE-8*WMCL 
AK=B.403E15*(ALAM**5)*R2*E 
AM=AK*{ ■ .-1.0/R2) 

C SE T CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 

NCENTR={ LAMMIN-1 . 0/LAMCL ) /DELLAM+1 
NS T ART =NCENTR-N5PRED 
NEND=NCENTR +NSFRED 

I F ( (N3TART . LT . 1 ) . OR . ( NEND . GE .NARRAY ) ) GO TO 50 
C DISTRIBUTE THE ROTATIONAL LINE, 

IF (E.LT.I .OE-25) GO TO 50 
I F(. NOT. LINED GO TO 300 
C GENERATE LINESHAPE TEMPLATE 

200 CALL FAST 

201 L1NE1=. FALSE. 

C COPY LINESHAPE USING TEMPLATE 
300 XAMCLi = i .0/0 LAIfiIN-(NCEN7R-l )*DELLAM) 

DM-XAMCL1-LAMCL 

K -N 1 S F EE D* DM / DELt 0 C 

M3=NJJ4+K“NSPEED*NCENTR 

I r ( K.LT.r-0, 5+FL0AT ( NSPEED ) ) ) M3=M3+NSPEED 

Ml =NSTART 

M2=NEND 

303 If ( (H2+NSFEED+M1) . GE . I ) GO TO 306 
M!“Ml+i 
30 TO 303 

303 IF; ( M3+NS?EED*M2 ) , LE , N J ) GO TO 310 
GC TO 308 
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310 CONTINUE 

IF(M1.GT.M2) GO TO 50 

CALL SAXPY ( M2-M1+1 , E , Y1 (M3+NSPEED*M1 ) .NSPEED , EMI S ( Ml ) , 1 ) 

CALL SAXPY (M2-M1+1 , AK1 , Y1 (M3+NSPEED*M1 ) ,NSPEED , ABSB (Ml ) , 1 ) 

C 

50 KU=KU+1.0 

60 KL=KL+1 . 0 

C mi BOTH BRANCHES BEEN COMPLETED. 

IF (KL .EQ. KU-1.0) GO TO 70 
C SET CONSTANTS FOR THE R BRttiCH. 

CSTR^O.O 
KU=KMIN 
KL=KU-1.0 
GO TO 10 
70 CONTINUE 
RETURN 
END 

*DECK ONE 

SUBROUTINE 0NE(WAVEL ,EMI S , ABSB ,NARRAY,NFOUT ,NPRT ,NFERR ,+METH) 

C SUBROUTINE ONE COMPUTES PERPENDICULAR TRANSITIONS FOR DIATOMIC 
C MOLECULES. 

C INPUT PARAMETERS 
C WAVEL4IAVELENGTH, A 

C NARRAY=LENGTH OF MVEL, EMIS, ABSB ARRAYS 
C NFOUT=FILE NUMBER OF OUTPUT PRINTS 

C NrRT=PRINT OUT INDEX. Q=NO PRINT. 1=SMLL PRINT. 2=LARGE PRINT 
C NFERR=FILE NUMBER OF ERROR MESSAGES 

C NMETH=1, EMITTED POWER ONLY. =2, SPECTRAL CALCULATION 

C OUTPUT PARAMETERS 
C EMIS=EMISSION COEFFICIENT 

C ABSB=ABSORPTION COEFFICIENT 

REAL KU,Kl,LAMCL,MU, LA*t1IN,NU8AR,NUBAR0,NUSPIN 

DIMENSION WAUEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

COttIQN /CFAST/SPEED , NSPEED , LINE1 ,NSTART,NEND,LAMCL , E , CSPRD1 , CSPRD2 
COmON/CFSTl/Yl(4OO0) ,NJM,NJ 

COftlON/CBANDl/ALPHAU , BEU , BETAU , CAPAU , CAPLU , DEU , DZEROU , REU ,TERMU , 

1 ALPHAL , BEL , BETAL , CAPAL , CAPLL , DEL , DZEROL , REL ,TERML 

COhfiON/ CBAND2/WEU , WEXEU , WEYEU , WEZEU , BVU , DVU , DEGENU , MU , ALTNAT , 

1 WEL ,WEXEL , WEYEL ,WEZEL , BVL , DVL , NUSPIN 

CCMMfri/CTEMP/TELECT , TVI B , TROT 
COftlON/CWIDTH/WI DTHL ,WI DTHV , RANGE ,DELLAM , L/flMIN 
COftiON/CTRAN/PARTCC ,NUBAR0 , Q , AOE , Cl hTTl , , KMIN , KMAX , R1 

1,PHR1,PWR2,PWR3 

COMMON/ CEXTRA/ I NDEX , SYSTEM, TOTAL 

INTEGER SWITCH 
LOGICAL LINE1 

C FIND THE NUMBER OF ENTRIES IN THE INTENSITY ARRAY, FROM TI€ LINE CENT 
C AT WHICH EACH LINE IS ASSUMED TO HAVE A CONTRIBUTION. 

C SET CONST/WTS WHICH DETERMINE THE LINE SMPE. 

CSPRD2=WI DTHL/WI DTW 

CSPRD3= ( 1 . 065+0 . 447*CSPRD2+0 . 058*CSPRD2**2)*WI DT W*1 . OE-4 

CSPRD1=(1.0-CSPRD2)/CSPRD3 

CSPRD2=CSPRD2/CSPRD3 
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C SET THE SIGN OF CAPLU, USED IN STRENGTH EQUATIONS, APPROPRIATE TO THE 
C SIGN OF DELTA LAMBDA. SEE JOHNSON PAGE 150. 

SIGN=1.0 

IF (CAPLU . LT. CAPLL) SIGN=-1.0 
IF(CAPLU.LT.O .5) GO TO 5 

C ADJUST FACTOR USED IN INTENSITY EOLATION TO CORRECT 
C PARTCC r OR LAMBDA DOUBLING. 


C CALCULATE EMITTED POWER FOR NMETH-i 
IF(MiETH.GT.l) GO TO 1 
A=A0E**2*C1NT2*EXP( -1 . 43877*CINT1 ) 

TBYB=TRO T /( 1 . 43877*EMJ) 

$IWE=A* ( 0 . 5*NU8AR0**4*TBYBt2 . *NUBAR0**3* ( BVU-BVL ) *TBYB** 2* 

1 3*NUBAR 0**2* ( 3* ( 8WU-8VL ) **2-2*NU8AR0* ( DVU-DVL } )*T BYB**3 

2 •fl2*NUBAR0*(BVU-BUL)*( (SWU-BML)**2-4*NUBAR0*(DVIHWL)) 

3 *TBY8**4) 

SUKE=SWE*4.*12.57 

IF(1.E8/NUBAR0.GT,WAVEL(1) ) PWR1=PWR1+S ! J1E 
I F (I . E8/NUBAR0 . GT . 2500 . ) PWR2=PWR2fSUME 
I F ( 1 . EB/NUBARO . GT . 3500 . ) PWR3=PWR3+SUME 
RETURN 
1 CONTINUE 


KU-KMIN 


KL-KLH-1 . 0 
DEL1=1 ./DELLAM 
10 CONTINUE 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPONTANEOUS 
C EMISSION OF ALL SPECIFIED ROTATIONAL LIMES. 

DO 30 M=KMIN,KMAX 

C COMPUTE THE WAVELENGTH OF THE LINE CENTER IN ANGSTROMS. 

F PU=BVU* ( KU* ( KU+1 . 0 ) ) - DW* ( KlH-0 ,5)**4 
FPL=BVL* ( KL* ( KL+1 .01) -DVL* ( KL+0 . 5) **4 
NU9AR=NUBAR0+FPU“FPL 
R2=R1*EXP( 1 . 43877* C FPU-FPL) /TROT ) 

LAMCL=1 .0E+8/NUBAR 


C P 
20 


Vi 


C R 
40 


DELLOC=LAMCL**2*DELLAM 
NSPREM . 1ARANGE*WI DTHO'/DELLOC 
IND THE STRENGTH FACTOR. 

GOTO (20,30,40), SWITCH 
BRANCH STRENGTH FACTOR 

S=( KU41 . 0-SI GN*CAPLU)* ( KUf2 .3-$IGN*CAPLU)/ • KU+i . 0 i 
BRANCH STRENGTH FACTOR. 

GO TO 50 

S=f KU+SIGN*CAPL‘J)*(2.0*KIH-1 ,0)*( KU+1 ,0-SIGN*CAPLU)/ 
1 ( KU* ( KLH-1 . 0 ) ) 

GO TO 50 

BRANCH STRENGTH FACTOR. 

S=( KLH-SI GN*CAPLU}*( KU-i , 0+S! GN*CAPLU).TJ 
“ERMINE IF LINES ALTERNATE IN INTENSITY. 

PACT OR =1 . 0 

IF (ALTNAT .ED. 0.0; GO TO 60 
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C EVALUATE THE ALTERNATION FACTOR FOR HOMGNUCLEAR MOLECULES. THE 
C EXPONENT IN THE ALTERNATING FUNCTION IS FOUND SEPARATELY TO ENSURE 
C THAT IT IS AN INTEGER BEFORE RAISING (-1.0) TO A POWER. 

KEXP= KL + ALTNAT + 0.1 

FACTORS. 0 +(-1.0)**KEXP/(2.Q*NUSPIN+1.0) 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION E, 

C AND SUM OF ABSORPTION AND STIMULATED EMISSION AK1 
SO E=FACTOR*S*(NUBAR**2*AOE)**2*CINT2*EXP(-1 .43879*(CINT1 
1 +(BVU*KU*(RW1.0))/TR0T)) 

ALAM=1.0E-8*LAMCL 

AK=8.403E15*(ALAh**5)*R2*E 

AK1=AK*(1.0-1.0/R2) 

C SET CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 
NCENTR=(Ltft!IN-l .0/LAMCL)/DELWMfl 
NSTART=NCENTR-NSPRED 
NEND=NCENTR 4NSPRED 

I F ( (NSTART . LE . 1 ) . OR . (NEND . GE .NARRAY) ) GO TO 80 
C DISTRIBUTE THE ROTATIONAL LINE. 

IF (E.LT.l.OE-25) GO TO 80 
IF( .NOT. LINED GO TO 300 
C GENERATE LINESHAPE TEMPLATE 

200 CALL FAST 

201 LINE1=. FALSE. 

C COPY LINESHAPE USING TEMPLATE 
300 XAMCL1=1 . 0/ ( LAMi I N- ( NCENTR-1 )*DELLAM) 

DM=XAMCL1-LAMCL 

K=NSPEED*DM/DELLOC 

M3=NJMfK-NSPEED*NCENTR 

I F ( K . LT . ( -0 . 5*FLQAT (NSPEED) ) ) M3=M3+NSPEED 

M14ISTART 

M2=NEND 

309 IF((M3+NSPEED*M1) .GE.l) GO TO 308 
Mi=Mi+l 

GO TO 303 

308 I F ( (M3+NSPEED*M2) . LE .NJ) GO TO 310 
M2=M2-1 
GO TO 308 

310 CONTINUE 
IF(M1.GT.M2) GO TO 80 

CALL SAXPY(M2-M1+1 , E ,Y1 (M3+NSPEED*M1 ) , NSPEED, EMI S(M1 ) ,1 ) 

CALL SAXPY ( M2-M1+1 , AK1 , Y1 (M3+NSPEED*M1 ) , NSPEED , ABSE V M1) ,1) 

C 

80 KU=KIHT.0 

90 KL=KL+1.0 

GO TO (100, 110, 120), SWITCH 
100 CONTINUE 

C SET CONSTANTS FOR Q BRANCH. 

SWITCH= 2 
KU=KMIN 
KL=KU 
GO TO 10 
110 CONTINUE 

C SET CONSTANTS FOR R BR^JCH. 

SWITCH= 3 
KU=KMIN 
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KL=KU-1.0 OF POOR QUALITY 

GO TO 10 ’ 

120 CONTINUE 
RETURN 
END 

★DECK S2PI2 

SUBROUTINE S2P 1 2 ( WAVEL , EM I S , ABSB .NARRAY , NF OUT , NPRT , NFERR , NMETH ) 

C CALCULATES S2-PI2 TRANSITIONS 
C INPUT PARAMETERS 
C WWEL4WVELENGTH, A 

C NARRAY=LENGTH OF NAVEL, EMIS, ABSB ARRAYS 
C NFQUT-FILE NUMBER OF OUTPUT PRINTS 

C NPRT =PR I NT OUT INDEX. 0=NO PRINT. 1=SMALL PRINT. 2=LARGE PRINT 

C NFERR=FILE NUMBER OF ERROR MESSAGES 

C NMETH=1 (EMITTED POWER ONLY. =2, SPECTRAL CALCULATION 

C OUTPUT PARAMETERS 

C EMIS=EMISS!ON COEFFICIENT, W/'(MI CR0N-CH2-SR) 

C ABSB=ABS0RPT I GN+STIMULATED EMISSION COEFFICIENT, CM-1 

REAL JU,JL,LAMCL,MU, LAM1IN,NUBAR,NUBAR0,NUSPIN 
DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

DIMENSION ABSB(l) 

CCftlON /CFAST/SPEED , NSPEED , LINE1 ,NSTART ,NEMD , LAMCL , E , CSPRD1 , CSPRD2 
CQrt10N/CFSTl/Yl(4D00),NJM,NJ 

COMMON/ CBANDl /AL PHAU , BEU , BETAU , CAPAU , CAPLU , DEU , DZEROU , REU , T ERMU , 

1 C ALPHAL , BEL , BETAL , CAPAL , CAPLL , DEL , DZEROL , REL , TERML 

COW WCBAND2/I€U , WEXEU , WEYEU , WEZEU , BVU , DVU , DEGENU , MU , AL7NAT , 
i WEL , WEXEL , WEYEL , WEZEL , BVL , DVL , NUSPIN 

CdtlON/CTEMP/TELECT ,TVI B , TROT 
CQIfiON/CWI DTH/WI DTHL ,W! DTHV , RANGE, DELLAM , LAMMIN 
COMMON/CT RAN/PART CC , NUBARO ,Q,A0E,CINT1,CINT2,KMIN, KMAX , R1 
1,PWR1,PWR2,PWR3 

COWON/CEXTRA/INDEX , SYSTEM , TOTAL 

INTEGER SNITCH 
LOGICAL L1NE1 
LOGICAL FROMPI ,DBLBRN 

C FT TO SIGm TRANSITIONS. SIGMA TO PI TRANSITIONS. 

C DBL8RN IS TRUE WHEN COMPUTING TWO BRANCHES WHOSE LINES ARE ASSUMED TO 
C ’HAVE THE SAME WAVELENGTHS. 

DBLBRN=. FALSE. 

CINT2=CINT2/2.0 

C SET CONSTANTS APPROPRIATE TO THE ELECTRONIC TRANSITION, FROMPI IS TR 
C I r THE UPPER STATE IS DOUBLET PI. 

FRCMPI =. FALSE. 

I r ( CAPLU. GT. CAPLL) FROMPI =. TRUE. 

C ADJUST FACTOR USED IN INTENSITY EQUATION TO CORRECT PARTCC 
C FOR SPIN SPLIHING AND LAMBDA DOUBLING 

IF(FROMPI) CINT2=CINT2/2.0 
r 

C CALCULATE EMITTED POWER FOR NMETH=1 
IF(WETH.GT.l) GO TO 1 
A=AOE**2*C!NT2*EXP(-l ,4387?*CINT1) 

TBYB=TROT/( 1 . 438?7*BVU ) 

SLME=A* ( 0 , 5*NUBAR0**4+2*NUBAR0**3*( BVU-BVL)*T6Y8**2t 
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1 2*MUBAR0**2* ( 3*( BUU-BVL ) **2-4*hRJBAR0*( DVU-DML ) )*TBYB**3 

2 +12*NUBAR0*( EMU-BVL )* ( ( BVU-BVL )**2-2*NU8AR0* ( DVU-DVL ) ) 

3 *TBYB**4) 

SLME=SUME*8*12.5? 

I F( 1 . E8/NU8AR0 .GT .WAVEL( 1) ) PWR1=PWR1+SUME 
I F ( 1 . E8/NUBAR0 . GT . 250 0 . ) PWR2=FWR2+SUME 
I F ( 1 . E8/NUBAR0 . GT . 3500 . ) PWR3=PWR3+SUME 
RETURN 
1 CONTINUE 
C 

C SET COUPLING CONSTANT. 

YU=CAPAU/BVU 

YL=CAPAL/BVL 

Y=YL 

IF(FROMPl) Y=YU 

C SET POSITN, THE BRANCH IDENTIFIER, Ah® I PRINT, THE INDEX ON mi WHIC 
C IDENTIFIES THE BRANCH OUTPUT. 

SWITCH= 0 
IPRINT=0 

IF (FROMPI ) IPRINT=-1 

C SET CONSTANTS WHICH DETERMINE THE LINE SMPE. 

CSPRD2=WI DTHL/WI DTHV 

CSPRD3=(1 .065+0. 447*CSPRD2F0 . 058*CSPRD2**2)*WIDTW*1 .OE-4 

C$PRD1=(1.0-CSPRD2)/CSPRD3 

CSPRD2=CSPRD2/CSPRD3 

C SET CONSTANTS FOR THE P2 BRANCH (PI TO SIGMA TRADITION) OR 
C R2 BRANCH (SIGMA TO PI TRANSITION). 

BAND=0.0 
K=KMIN 
JU=K-0.5 
JL= JU-1 . 0 

IF (FROMPI) JL=JIH1 . 0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SIGNU1=1 .0 
SIGNU2=1,0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNS1=1.0 
SI(^S2--1.0 
C0N5T1=1.0 
CONST2=l.Q 
GO TO 80 

C SET CONSTANTS FOR THE R1 BRANCH (PI TO SIGMA TRANSITION) OR 
C PI BRANCH (SIGMA TO PI TRANSITION) 

10 CONTINUE 
JU=K+0 . 5 
JL=JU41.0 

IF (FROMPI) JL= JU-1 . 0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

S1GNU1=-1.0 

SIGNU2=-1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNS! =1.0 
SI GNS2=— 1 . 0 
CONST 1=1,0 
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CONST 2=0.0 0<vPDCR QoAUVi 

GO TO 80 

C SET CONSTANTS FOR THE SR21 BRANCH (EITHER TRANSITION). 

20 CONTINUE 
JU=K-0 . 5 

JL=JU“1 .0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SI GNU! =1.0 
SIGNU2=-1 .0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNS1=-1.0 
SIGNS2=-1.0 
CONST1=1.0 
CONST 2= 1,0 

IF ( FROMPI ) CONST 2= 0.0 
GO TO 80 

C SET CONSTANTS FOR THE 0F12 BRANCH (EITHER TRANSITION). 


30 CONTINUE 
JU=K+0 . 5 
JL=JU+1 .0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 
S!GNUl=-i.O 
SIGNU2=1.0 

C SET CONSTANTS r OR THE STRENGTH EQUATION. 
SIGNS1=-1.0 
SI GNS2=-1 . 0 


COTiSTl=i . 0 
CONST 2=0 . 0 


IF (FROMPI) CONST2=1.0 
GO TO 90 

C SE T CONSTANTS FOR THE 02 AND 0P21 BRANCHES (PI TO SIGhfc TRANSITION) 0 
C 02 AND CR.12 BRANCHES (SIGMA TO PI TRANSITION) . 

40 CONTINUE 
D9LBRN=.TRUE. 

JU=K-0.5 

JL-JU 

C SET CONSTANTS FOR THE I4AMELEN6TH EQUATION. 

SIGN’J1=1 .0 
SIGNU2=1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNSl=-i,0 
SI^S2=1.0 
SIGNS3=-1.0 
CONST 1=- 7,0 
C0NST2=1.0 


CONST 3=1.0 
GO TO 80 

C SET CONSTANTS I 
C Q1 AND QP21 
50 CONTINUE 


OR THE 01 AND OR12 BRANCHES (PI TO SIGMA TRANSITION) 
BRANCHESC SIGMA TO PI TRANSITION) 


JU=K+0.5 

JL=JU 
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C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SIGNU1=-1.0 

SIGNU2=-1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGN$1=-1.0 

SIGNS2=1.0 

SIGNS3=1.Q 

CONST1=-7.0 

CONST2=O.0 

C0N$T3=-7.O 

GO TO 80 

C SET CONSTANTS FOR THE R2 AND RQ21 BRANCHES (PI TO SIGTtt TRANSITION) 0 
C P2 AND PQ12 BRANCHES (SIGMA TO PI TRANSITION) 

SO CONTINUE 
JU=K-0 . 5 
JL=JU+1.0 

IF (FROMPI) JL=JU-1.0 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SIGNU1=1.0 

SIGNU2-1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNSM.Q 
SIGNS2= 1.0 
SIGNS3= 1.0 
CONST1=-7.0 
CONST2=0.0 
CONST 3= -7.0 
GO TO 80 

C SET CONSTANTS FOR THE PI AND PQ12 BRANCHES (PI TO SIGM TRANSITION) 0 
C R1 AND RQ21 BRANCHES (SIGMA TO PI TRANSITION) 

70 CONTINUE 
JU=K+0.5 
JL=JU-1 . 0 

IF (FROMPI) JL=JUfl.O 

C SET CONSTANTS FOR THE WAVELENGTH EQUATION. 

SI GNU! =-1.0 
SIGNU2=-1.0 

C SET CONSTANTS FOR THE STRENGTH EQUATION. 

SIGNS1 =1,0 

SIGNS2=1.0 

SIGNS3=-1.0 

CONST1=-7.0 

CONST 2=1.0 

CONST3=1.0 

C COMPUTE AND DISTRIBUTE THE INTEGRATED INTENSITY DUE TO SPQNTtfCOUS 
C EMISSION OF ALL SPECIFED ROTATIONAL LINES FOR THE APPROPRIATE BRANCH, 
C J IS THE ROTATIONAL QUANTUM NUMBER OF THE PI STATE. SEE REFERENCE BY 
C EARLS. 

80 BRANCH=G . 0 

J=JL 

IF (FROMPI) J=JU 
DO 120 M=KMIN,KMAX 

C COMPUTE T H£ WAVELENGTH OF THE LINE CENTER IN ANGSTROMS. 

FPU=BV<J*( ( JIH-0 . 5)**2-CAPLU**2+SI GNU1/2 . 0 *SQRT( 4. 0*( JLH-0 .5) 
1**2-4.0*YU*CAPLU**2+(YU*CAPLU)**2)) 



LO [' * £ C . C -/ K u k-t t ' ; 

OF POOR QUALITY 


FPL=BUL*((JL+0.5)**2-CAPLL**2+SlGNU2/2.0 *SQRT(4.0*( JL+0 .5) 
l*+2-4 .0*YL*CAPLL**2+(YL*CAPLL)**2) ) 

NUSAR=N l J8AR0+FP i J-FPL 
R2=Ri*EXP(l . 42S77^(FPU“FPL)/TR0T) 

LAMCL=1.0E+8/NUBAR 
DELLQC=L#!CL**2*DELLAM 
NSPRED=1 . I+RANGE+WI DTW/DELLOC 
C FIND STRENGTH FACTOR FOR SINGLE BRANCHES . 

I>1 , 0./SORTf Y**2-4 . 0*Y+ ( 2 , 0*J+1 . 0 )**2) 

S=((2.Q*Jt! ,04+2 +S I GNSI* ( 2 . 0* J+l . 0 )*U* ( 4 , 0* J*+2 +4.G*J'+CGNST1* 
1 +SI6NS2*2.D*Y))/(3.0*(J+CQNST2)) 

IF (.NOT.DBLBRN) GO TO SO 
C FIND STRENGTH FACTOR FOR DOUBLE BRANCHES . 

S=$ + ( 2 , 0* J+l . 0 ) * ( ( 4 . 0+J++2+4 . 0* J-1 , 0 } -SI GNS1+U* ( 8 . 0*J**3+1 2 . 0 
1 * J**2-2 . 0* J+CQNST3+3 I GNS3*2 . 0*> ) )/( 8 . 0+ J* ( J+l , 0 ) ) 

C FIND THE INTEGRATED LINE INTENSITY DUE TO SPONTANEOUS EMISSION E, 

C AND SUN OF ABSORPTION AND STIMULATED EMISSION AK1 
30 E=S*(NUBAR**2*A0E)**2*CINT2*EXP(-1 .43879*(CINT1 

1 + ( BL'LMfJ U* ( JU+1 . 0 ) } / TR OT ) ) 

ALAM=1 .QE-8+LAMCL 

AK-S . 40 SE1 5+ (ALAM**5 )*R2*E 

AK1=AK*(1.-1./R2) 

C SET CONSTANTS USED TO DISTRIBUTE THE ROTATIONAL LINE. 

NCENTR=( imi N-l . 0/LAMCL ) /DELLAM+1 
N3TART=NCENTR4ISPRED 
MEND=NCENTR +NSPRED 

I F ( (NSTART . LE . 1 ) . OR . ( NEND . GE .NARRAY) ) GO TO 110 
C DISTRIBUTE THE ROTATIONAL LINE. 

IF (E.L T .1.0E-25) GO TO 110 
IFf. NOT. LINED GO TO 290 
C GENERATE LI NESCAFE TEMPLATE 
CALL FAST 

201 LINE1". FALSE. 

C COPY LINE SHAPE USING TEMPLATE 

30 0 XAMCL 1=1.0/ ( LAMM I N- ( NCENTR-1 ) +DELLAM ) 

DM=XAMCL1-LAMCL 

K=NSPEED*DM/DELLGC 

MS-NJM+K-NSPEED+NCENTR 

I r t K . LT . ( -0 . 5*FL0ft T (NSPEED) ) ) M3+13WEED 

M14ISTART 

M241END 

303 I F ( (M3+NSFEED+M1 } . GE . 1 } GO TO 30S 
Ml=Mi+i 
GO TO 30? 

308 IF ; (M3WSPtED*M2) .LE.NJ) GO TO 310 
M2=fi2-1 


GO TO 30S 
310 CONTINUE 

IF:'M1.GT.M2j go TO 110 

CALL SAXPYCM2-H1+1 ,E,Y1 (M3+NSPEED+M1 ) ,NSPEED,EMI St Ml ) , 1 i 
CALL SAXPY ( M2H11+1 , AK1 , Y1 ( M3+NSPEED+M1 ) ,NSPEED ,ABSB( Ml ) ,1 

1 -‘i 1 M i=.Ti i - i .*. p 


,20 


JL=JL+i.C 
K=K+1 .0 
J- J+l . 0 
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C SET FACTORS IN PREPARATION FOR THE NEXT BRANCH. 

K=XMIN 

SWITCH= SWITCH* 1 
C GO TO THE APPROPRIATE BRANCH. 

GO TO (10,20,30,40,50,60,70,130), SWITCH 
130 CONTINUE 
RETURN 
END 

*DECK FAST 

SUBROUTINE FAST 

C FAST CALCULATION OF ROTATIONAL LINES 
REAL LAMMIN, LAMCL,LAM 

COMMON /CFAST/SPEED ,NSPEED , LINE! ,NSTART,NEND , LAMCL , E , CSPRD1 , CSPRD2 
COMMON/CWI DTH/WI DTHL , WI DTHV , RWGE , DELLM , UWIIN 
COhMlWCFSTl/Y(4000) ,NJM,NJ 
LOGICAL LINE1 
DATA Y/4000+0 ./ 


C COMPUTE FIRST LINE 
C DETERMIN NSPEED 

DELLOC=DELLAM*LAMCL**2 

wdi=i.o/wdtw 

NSPEED=DELLQC*WD1*10 .+1 
C CONSTRUCT LINE TEMPLATE 

N JM=NSPEED* ( RANGE+WI DT W/DELLGC+1 . )+l 

1 F (N JM . GT . 1 999 ) NJH=1999 

NJ=2*NJM-1 

AN=NSPEED 

AM=1.0/AN 

C DISTRIBTUTE LINE TEMPLATE 
C TEST IF LINE IS NEARLY DISPERSIVE 

IF((WIDTHL/WIDTHV) .LT.0.90) GO TO 6 
C LINE IS NEARLY DISPERSIVE 
WD2=2.Q*WD1 
DO 7 I =1 ,NJ 

LAM=LAMCL*( 1 . 0+LAMCL* ( I -NJM)*DELLAM*AM) 

DELL=A8S(LAM-LAMCL) 

Y ( I ) =0 . 31 83E 4*KDZ/ ( 1 . 0+ ( DELL+WD2 ) **2 ) 

7 CONTINUE 
RETURN 
6 CONTINUE 
C LINE IS VOIGT 
DO 1 1=1 ,NJ 

L#1=LAMCL*(1 .0+LAMCL*( I-NJM)*DELLAM*AM) 

CSPRD3=ABS ( LAM-LtflCL )*WD1 
CSP2=CSPRD3**2 
CSP3=CSP2*SQRT ( SQRT ( CSPRD3 ) ) 

Y( 3 ) =CSPRD1*EXP( -2 . 7?2*CSP2) +CSPRD2/ (1.0+4. Q*CSP2)+0 , 01 6+CSPRD2 
>*( 1 . 0-WI DTHL+WD1 )*( EXP( -0 .4+CSP3H0 ./( 10 .+CSP3) ) 
i CONTINUE 
RETURN 
END 

SUBROUTINE SAXPY(N,SA,SX,INCX,SY,INCY) 
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C LINEAR COMBINATION ROUTINE TO SUBSTITUTE FOR THE BUILT-IN 
C SUBRUTINE IN CRAY 
C TAKE OUT IF IN CRAY 

DIMENSION SX(1) ,$Y(1) 

IX-l-INCX 
I Y =1 - ! NCY 
DO 1 1=1 ,N 

i x= i >;+ 1 ncx 

1 Y =IY+INCY 

1 SY( !Y)=SA*S>:( IXJ+SY (IY) 

RE T URN 

END 

*DECK GLBPWR 

SUBS CUT I NE GLEPWR (HAVEL, EMI S, NARPAY , PWR1 , PWR2 , PHP.3 ) 

C CALCULATES GLOBAL EMISSION POWER 
C INPUT PARAMETERS 
C WAVEL=WAVELENGTH, A 

C EMIS=EMISSICN COEFFICIENT, W/(MICRCN-CM2-SR) 

C NARRAY=LENGTH OF NAVEL , EMIS ARRAYS 

C PWRl=TOTAL EMITTED POWER 

C PWR2=P0WER EMITTED ABOVE 2500 A 

C PMR3=P0WER EMITTED ABOVE 3500 A 

DIMENSION WAVEL(l) 

DIMENSION EMIS(l) 

PWR1=0. 

FWR2-0 . 

PWR3=0. 

DELLAM=( ! . /HAVEL ( 1 ) -1 ./WAVEL (NARRAY) )/(NARRAY-l ) 

DC I M=i , NARRAY 
DELL0C=WAVEL(Mm2*DELLAM 
PWR1=PWR1+EMIS(M)*DELL0C*1 . OE-4+4 .*3. 142 
I F (WAVELf M) . GT , 2500 . ) PWR2=PWR2+EMIS(M)*DELL0C*1 .OE-4 
>*4.*3,1«2 

I F (WAVEL(M) . GT . 3500 . ) PWR3=PWR3+EMIS(M)*DELL0C*1 . OE-4 
>*4,*3.142 
I CONTINUE 
RETURN 
END 


omomzL ^ 

of 'POOR quality 
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SECTION 3. EXCITATION DATA 


NITROGEN 117345. 


9. 


1 

2 

3 

4 

5 

6 
7 
3 
9 

10 

11 

12 

13 

14 


15 

16 


17 

18 

19 

20 
21 
22 

0 

4 

1 

2 

3 

3 

4 

5 

6 
6 
6 
7 


5. 1. 5. 100. 15315. 32687. 47168. 


2 

0. 

4. 

2P3 4S 

2 

19228. 

10. 

2P3 2D 

2 

28840. 

6. 

2P3 2P 

3 

83337. 

12. 

3S 

4P 

0 

o 

86193. 

6. 

3S 

2P 

3 

95276. 

36. 

3P 

4D 3P 

3 

96793. 

18. 

3P 

2S 3P 

4 

103862. 

18. 

4S 

4P 4S 

3 

104857. 

60. 

3D 

4F 3D 

2 

104902. 

30. 

3D 

2P 3D 

4 

107082. 

54. 

4P 

2S 4P 

5 

110021. 

18. 

5S 

4P 5S 

4 

110315. 

90. 

4D 

2P 4D 

4 

110486. 

126. 

4F 

4D 4F 

5 

111363. 

54. 

5P 

4S 5P 

5 

112851. 

90. 

5D 

2P 5D 

5 

112929. 

288. 

5F 

4D 5F 

6 

114298. 

648. 

6 


/ 

115107. 

882. 

7 


8 

115631. 

1152. 

8 


9 

115991. 

1458. 

9 


10 

116248. 

1800. 

10 


0 

0. 

0. 



4 

5 . 433E+08 




5 

5.587E+08 




5 

2.083E+08 




10 

2.607E+07 




6 1.042E+07 




li 

9.663E+04 




0 

V 1 

1.902E+07 




9 1.987E+0? 




12 

2.287E+06 




10 

1.524E+Q7 




1 

7.901E-14 

-0.318 



2 

6.694E-14 

-0.366 



3 

2.244E-14 

-0.352 



4 

2.725E-16 

-0.049 



c 

*' 

5.353E-16 

-0.430 



6 

5.C91E-15 

-0.453 



7 

2.952E-15 

-0.108 



9 

0.000E+00 

0.000 



3 

1.648E-14 

-0.842 



10 

8.086E-15 

-0.842 



11 

3.523E-15 

-0.615 



12 

0.000E+00 

0.000 



13 

1.417E-14 

-0.856 



14 

5.490E-15 

-1.115 



15 

1.894E-15 

-0.659 




4P 3P 4S 
2D 3P 2P 
2P 

4P 3D 4D 
2F 3D 2D 

4D 4P 4P 4P 2D 4P 4S 4P • 2P 
2P 

4F 4D 4D 4D 2F 4D 4P 4D 2D 

4F 4F 4G 4F 2D 4F 2F 4F 2G 

4P 5P 4D 5P 2S 5P 2P 5P 2D 

4F 5D 4D 5D 2F 5D 4P 5D 2D 

4F 5F 4G 5F 2D 5F 2F 5F 26 5G 4F 



CO o> 


17 € .553E-15 -1.149 

16 0.000E+Q0 0.000 

19 0.000E+00 0.000 

20 0.000E+00 0.000 

21 0.0QQE+00 0.000 

22 0.00GE+00 0.000 

I 2 1.1E-08 0.20 1 3 3.5E-09 0.21 

1 6 4.0E-99 0.32 1 7 1.0E-30 0.00 

1 10 1.0E-30 0.00 1 11 5.9E-09 0.82 

1 14 1.0E-30 0.00 1 15 1.0E-30 0.00 

1 13 1.7E-05-2.09 1 19 1.9E-05-2.09 

2 3 5.4E-09 0.27 2 4 1.0E-3G 0.00 

2 7 6.3E-09 0.62 2 3 4.5E-06-1.87 

2 11 3.3E-09 0.73 2 12 9.3E-06-1.88 

2 15 l.OE-30 0.00 2 16 1.6E-Q5-2.Q3 

2 19 6.3E-0S-2.C7 2 20 7.0E-06-2.G7 

3 4 1.0E-30 0.00 3 5 3.5E-06-1.35 

3 S 3.4E-06-1.87 3 9 1.0E-30 0.00 

12 7.3E-96-1.88 3 13 6.3E-06-2.Q4 

16 1.2E-C5-2.03 3 17 l.QE-39 0.00 

3 20 5.6E-06-2.07 3 21 6.1E-06-2.07 

4 5 7.3E-12-0.43 4 6 3.1E-08-0.05 

4 3 i.i £-07-0,16 4 10 3.5E-03-0.72 

4 13 1 . 2E-07-0 . 22 4 14 4.2E-09-0.23 

4 17 1.1E-07-0.28 4 18 2.1E-07-0.32 

4 21 3.2E-07-0.33 4 22 3.6E-07-0.33 

5 6 4.8E-10-0.98 5 7 7.1 E-08-0. 11 

5 10 2 . 3E-G7-0 . IS 5 11 6.2E-08-0.23 

5 14 4.8E-08-0.28 5 15 1.8E-07-0.29 

5 18 2.7E-07-0.35 5 19 3.3E-07-G.35 

5 22 4.7E-07-0.36 5 23 1.0E-3P 0.00 

6 7 2.2E-12-1.09 6 8 8.9E-09 0.20 

6 11 1 . 4E-9S-0 . 1 ? 6 12 3.0E-0S 0.15 
6 15 1.3E-08-0.27 6 16 4.7E-03-0.2ci 

6 19 7. 2E -08-0. 33 6 20 S.4E-0S-0.34 

7 8 1.1 £-08 0.16 7 9 2.2E-09-1.03 

7 12 2.3E-0S 0.13 7 13 4.5E-0S-0.28 

7 16 6.9E-0S-0.28 7 17 2.1E-09-0.46 

7 20 1.5E-07-0.40 7 21 1.7E-Q7-0.40 

8 9 4.5E-11-0.44 6 10 4.4E-11-0.49 

8 13 6.5E-08 0.07 3 14 1.8E-08 0.13 

9 17 6.8E-08-0 .01 8 18 4.5E-07-C.37 

8 21 8.5E-07-0.4S 8 22 9.BE-07-0.49 
3 10 6.5E-18-0.96 9 11 9.5E-1G-0.13 

9 14 1.1E-07 0.08 9 15 8.2E-09-0.32 
9 18 1.3E-07-C.29 9 19 1.7E-D7-0.27 
9 22 2.8E-07-0.35 9 23 1.0E-30 0.00 

10 11 6.1E-10-0.G5 10 12 2.5E-09-0.39 
10 15 3.4E-08-0.17 10 16 4.5E-08-0.19 

10 19 2.1E-07-0.34 10 20 2.6E-07-Q.38 

11 12 2.3E-08 0.39 11 13 4.3E-08 0.23 

11 16 7.8E-0S 0.00 11 17 4.5E-G8-0.46 

12 29 3.5E-07-0.59 11 21 4.2E-97-0.63 



OF FO Z?l : 


1 4 7.1E-06-1.87 1 5 1.0E-30 0.00 1 

1 8 1.5E-05-1.93 1 9 1.3E-05-2.06 2 

1 12 2.9E-05-1.93 1 13 2.5E-05-2.04 3 

1 16 4.7E-05-2.04 1 17 1.0E-30' 0.00 4 

1 20 2.1E-05-2.09 1 21 2.2E-05-2.99 5 

2 5 5.3E-06-1.86 2 6 1.0E-30 0.00 6 

2 9 1.0E-30 0.00 2 10 8.9E-06-2.06 7 

2 13 8.1E-06-2.04 2 14 1.0E-30 0.00 8 

2 17 1.0E-30 0.00 2 18 5.7E-06-2.07 9 

2 21 7.6E-06-2.07 2 22 8.1E-Q6-2.07 10 

3 6 1.0E-30 0.00 3 7 7.1E-09 0.59 11 

3 10 6.0E-06-2.06 3 11 3.6E-09 0.76 12 

3 14 1.0E-30 0.00 3 15 1.0E-30 0.00 13 

3 18 4.5E-06-2.06 3 19 5.1E-06-2.07 14 

3 22 6.6E-06-2.07 3 23 1.0E-30 0.00 15 

4 7 2.3E-09-0.85 4 8 fa.6E-08-0.12 16 

4 11 8.2E-08-0.25 4 12 1. 8E-07-0.il 1? 

4 15 7.8E-08-0.30 4 16 1.7E-Q7-0.26 IS 

4 19 2.5E-07-0.33 4 20 2.9E-07-0.33 19 

4 23 1.0E-3Q 0.00 4 24 1.0E-30 0.00 20 

5 8 7.2E-08-0.14 5 9 8.0E-09-0.71 21 

5 12 1.4E-C7-0.10 5 13 1 . 4E-07-G . 25 22 

5 16 2.1E-07-0.27 5 17 1.3E-07-0.32 23 

5 20 3.7E-07-0.36 5 21 4.2E-07-0.36 24 

5 24 1.0E-30 0.00 5 25 l.CE-30 0.00 25 

6 9 4.1E-08 0.04 6 10 9.0E-10-0.91 26 

6 13 3.9E-08-0.18 6 14 1.9E-08-0.44 27 

6 17 5 4E-08-0 . 43 6 18 5.9E-08-0.32 2S 

6 21 9.7E-08-0.35 6 22 1.1E-07-0.35 29 

7 10 8.6E-08-0.04 7 11 1.9E-08-0.25 30 

7 14 1.4E-08-0.52 7 15 1.0E-07-0.25 31 

7 18 1 . 0E-07-0 .37 7 19 1.3E-07-0.39 32 

7 22 2.0E-07-0.41 7 23 1.9E-30 0.00 33 

8 11 6.0E-08-0.04 8 12 1.8E-07-0.05 34 

8 15 1.9E-07 0.00 8 16 1.5E-07-0.05 35 

8 19 5.9E-07-Q.43 8 20 7.2E-07-0.46 36 

S 23 1.0E-30 0.00 8 24 l.QE-30 0.00 37 

9 12 2.7E-09 0.07 9 13 1.3E-08-0.10 38 

9 16 4.6E-08-0.20 9 17 1.4E-G7 0.04 39 

9 20 2.1E-07-0.31 9 21 2.5E-07-0.33 40 
9 24 1.0E-30 0.00 9 25 l.QE-30 0.00 41 

10 13 1.6E-08-0.07 10 14 1.2E-07 0.04 42 

10 17 1.6E-07 0.00 10 13 1.6E-07-D.2? 43 

10 21 3.1E-07-0.40 10 22 3.6E-C7-0.42 44 

11 14 1.8E-08-0.37 11 15 5.0E-08-0.17 45 

11 18 2.1E-C7-0.41 11 19 2.3E-G7-0.52 46 

11 22 4. 9E -07-0. 65 11 23 1.0E-30 0.00 47 
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12 13 5.4E-11-0.51 12 14 5.4E-11-0.49 12 15 1.8E-Q7 0.22 12 16 9.8E-08 0.33 48 

12 17 4.9E-08 0.30 12 18 1.3E-08 0.26 12 19 9.1E-09-0.05 12 20 8.5E-09-0.22 49 

12 21 8.EE-09-G.38 12 22 9.2E-Q9-G.49 12 23 1.0E-30 0.00 12 24 1.0E-30 0.90 50 

13 14 1 . IE-11-0 . 33 13 15 5.2E-09-0.15 13 16 2.5E-08 0.31 13 17 1.2E-07 0.30 51 

13 18 2.1E-07-0.63 13 19 2.9E-07-0.82 13 20 3.8E-07-0.97 13 21 4.SE-G7-1.05 52 

13 22 5. 5E-07-l.il 13 23 1.0E-30 0.00 13 24 1.0E-30 0.00 13 25 1.0E-30 0.00 53 

14 15 2.1E-10-0.5G 14 16 4.7E-09-0.38 14 17 3.4E-08 0.28 14 18 3.2E-08-0.49 54 

14 19 4.5E-08-0.70 14 20 5.9E-08-0.84 14 21 7.3E-08-0.34 14 22 8.7E-08-1.00 55 

15 16 7.1E-08 0.45 15 17 3.0E-08-0.31 15 18 8.7E-09 0.17 15 19 7.8E-09-0.15 56 

15 20 8.4E-09-0.32 15 21 9.1E-03-G.47 15 22 1.0E-Q8-0.58 15 23 1.0E-30 0.00 57 

16 17 1.2E-11-0.38 16 18 1.6E-08-0.05 16 19 3.2E-08-0.37 16 20 4.7E-08-G.54 58 

16 21 6.0E-08-0.63 16 22 7.3E-08-0.80 16 23 1.0E-30 0.00 16 24 1.0E-30 0.00 59 

17 18 2.7E-C9 0.08 17 19 5.8E-09-0.23 17 20 8.8E-09-0.4G 17 21 1.1E-08-0.56 60 

17 22 1.4E-08-0.67 17 23 1.0E-30 0.00 1? 24 1.0E-30 0.00 17 '25 1.0E-30 0.00 61 
13 13 3.1E-08 0.18 18 20 5.3E-C8-0.16 18 21 7.2E-08-0.31 18 22 8.2E-GS-0.45 62 

19 20 3.2E-03 0.24 19 21 5.6E-08-Q.12 19 22 7.7E-08-0.25 19 23 1.0E-3Q 0.00 63 

20 21 3.3E-08 0.28 20 22 6.0E-08-0.1Q 20 23 1.0E-30 0.00 20 24 1.0E-3G G.OO 64 

21 22 3.4E-08 0.30 21 23 1.0E-30 0.00 21 24 1.0E-30 0.00 21 25 1.0E-30 0.00 65 
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8 108117. 
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18 

9 108478. 

648. 
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19 

10 108734. 

800. 

10 




5 3.810E+08 





4 

6 3.400E+07 





4 

10 2.038E+05 





5 

7 2.800E-K17 





6 

8 1.700E+G? 





6 

9 2.623E+07 





6 

11 4.438E-P06 





6 

12 1.827E+06 





6 

14 2.927E+05 






1 1.056E-13 

-0.286 





2 O.OOOE+GO 

0.000 





3 C.OQOE+OG 

0.000 





4 1.016E-16 

0.558 





26810. 40467. 120000. 
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kO kd 


5 1.664E-16 

0.86? 

6 S.357E-15 

-0.779 

7 2.393E-15 

-0.186 

8 O.OOOE+QO 

0.000 

9 2.136E-14 

-0.873 

10 5.143E-15 

-0.805 

11 O.OOOE+OO 

0.000 

12 1.78BE-14 

-0.952 

13 1.672E-15 

-0.609 

14 1.392E-14 

-1.001 

15 O.OOOE+OO 

0.000 

16 0.090E+00 

0.000 

17 O.OOOE+OO 

0.000 

18 O.OOOE+OO 

0.000 

19 O.OOOE+OO 

0.000 


QP POOR Q 



1 2 2.3E-09 0.4? i 3 3.SE-10 0.24 
1 6 5.7E-09 0.07 1 7 3.4E-09 0.81 
1 10 2.7E-08 0.1? i 11 1.6E-05-1.85 
1 14 5.8E-06-1.99 1 15 8.9E-06-2.05 

1 18 1.3E-05-2.05 1 19 1.3E-05-2.05 

2 3 1.3E-09-0.03 2 4 I.OE-30 0.00 
2 ? l.QE-30 0.00 2 8 I.OE-30 0.00 
2 11 1.0E-30 0.00 2 12 1.0E-30 0.00 
2 15 0.0E+00 0.00 2 16 0.0E+00 0.00 

2 19 O.OE+OO 0.00 2 20 1.0E-30 0.00 

3 4 l.QE-30 0.00 3 5 i.OE-30 0.00 
3 8 I.0E-30 0.00 3 9 1.0E-30 0.C0 
3 12 l.QE-30 0.00 3 13 1.0E-30 0.00 

3 16 O.OE+OO 0.00 3 17 O.OE+OO 0.00 

4 5 1.0E-30 0.00 4 6 1.0E-30 0.00 
4 9 1.QE-3C 0.00 4 10 1.0E-30 0.0C 
4 13 l.QE-30 0.00 4 14 l.CE-30 0.00 

4 17 0.0E+00 0.C0 4 18 O.OE+OO 0.00 

5 6 1.0E-30 0.00 5 7 1.0E-30 0.00 
5 10 1.0E-30 0.00 5 11 1.0E-30 0.00 
5 14 1.0E-39 0.00 5 15 0.0E+00 0.00 

5 18 0.0E+00 0.00 5 19 0.0E+00 0.00 

6 ? 4.6E-11-1 .19 6 8 l.DE-30 0.00 

6 11 i.0E-30 0.00 £ 12 6.6E-08-0.39 
6 15 l.CE-07-0.46 6 16 1.3E-07-0.47 

6 19 2.0E-07-0.49 6 20 l.CE-30 0.00 

7 8 i.OE-30 0.00 7 9 4. 4E-08-0.il 

7 12 7.7E-G8-0.53 7 13 8.6E-0S-0.26 

7 16 1.5E-07-G.51 7 17 2.0E-07-0.52 

8 9 1.0E-30 0.00 8 10 i.QE-30 0.00 
S 13 1.0E-30 0.00 8 14 I.OE-30 0.00 
S 17 0.0E+0C 0.00 8 18 O.OE+OO 0.00 

9 10 8. 2E -10-0, 51 9 11 I.OE-30 0.00 
14 2.9E-07-Q.13 9 15 2.9E-07-0.34 


1 4 1.8E-09 0.03 1 5 7.3E-06-1 .80 1 

1 8 7.7E-06-1 .81 1 9 4.4E-06-1.99 2 

1 12 5.2E-06-1.99 1 13 I.OE-30 0.00 3 

1 16 1.1E-05-2.C5 1 17 1.2E-05-2.05 4 

1 20 I.OE-30 0.00 1 21 I.OE-30 0.00 5 

2 5 I.OE-30 0.00 2 6 l.QE-30 0.00 6 

2 9 l.CE-30 0.00 2 10 i.OE-30 0.00 7 

2 13 I.OE-30 0.00 2 14 i.QE-30 0.00 8 

2 17 O.OE+OO 0.00 2 18 0.QE+9D 0.00 9 

2 21 l.QE-30 0.00 2 22 I.OE-30 0.00 10 

3 6 1.0E-30 0.00 3 7 I.OE-30 0.00 II 

3 10 l.QE-30 0.00 3 11 I.OE-30 0.00 12 

3 14 I.OE-30 0.00 3 15 O.OE+OO 0.00 13 

3 18 O.OE+OO 0.00 3 19 O.OE+OO 0.00 14 

4 7 l.QE-30 0.00 4 8 l.QE-30 0.00 15 

4 11 1.9E-30 0.00 4 12 I.OE-30 0,00 16 

4 15 O.OE+OO 0.00 4 16 O.OE+OO 0.00 17 

4 19 O.OE+OO 0.00 4 20 1.0E-3Q 0.00 18 

5 8 1.0E-30 0.00 5 9 i.OE-39 0.00 19 

5 12 l.QE-30 0.00 5 13 l.QE-30 0.00 20 

5 16 O.OE+OO 0.00 5 1? O.OE+OO 0.00 21 

5 20 i.GE-30 0.00 5 21 l.QE-30 0.00 22 

6 9 4.4E-08 0.00 6 10 2.5E-08-0.19 23 

6 13 1.6E-08-0.05 6 14 1.0E-07-0.48 24 

6 1? 1 . 5E-07-0 . 48 6 18 1 .8E-07-0.48 25 

6 21 i.OE-30 0.00 6 22 i.OE-30 0.00 26 

7 10 7.9E-08-0.54 7 11 l.QE-30 0.90 27 

? 14 9.2E-08-9.52 7 15 1.2E-07-0.49 28 

7 IS 2.2E-07-0.53 ? 19 2.5E-07-0.53 29 

8 11 l.QE-30 0.00 8 12 I.OE-30 0.00 30 

8 15 2.9E-30-0.31 8 16 O.OE+OO 0.00 31 

8 19 O.OE+OO 0 .00 8 20 l.QE-30 0.00 32 

3 12 1. 7E-07-0.il 9 13 3.3E-08-Q.31 33 

3 16 4.2E-07-0.42 9 17 5.2E-07-0.46 34 


18 6.1E-07-0 .49 9 1? 7.GE-07-0.5G 9 20 I.OE-30 0.00 3 21 l.QE-30 0.00 35 
10 11 l.QE-30 0,00 10 12 4.1E-08-0.01 10 13 8.2E-08-0.15 10 14 9.GE-08-0.40 36 
10 15 1.7E-07-0.60 10 16 2.5E-07-0.74 10 1? 3.1E-07-0.80 10 IS 3.7E-07-0.83 3? 
10 19 4.3E-07-0.35 10 20 I.OE-30 0.00 10 21 I.OE-30 0.00 10 22 1.0E-3G 0.00 38 
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Vjs vi'- 4VJ , . r ■ 

QP POOH 


din 


11 12 l.OE-30 0.00 11 13 1.0E-30 0.00 11 14 1.0E-30 0.00 11 15 3.2E-31 0.39 39 

11 16 1.9E-31 0.01 11 17 1.7E-31-0.16 11 18 1.7E-31-0.31 11 19 1.8E-31-0.42 40 

12 13 4 . IE-09-0 .21 12 14 1.3E-07 0.10 12 15 1.4E-07-9.47 12 16 2.2E-07-0.71 41 

12 17 2.9E-07-Q.86 12 18 3.5E-07-0.95 12 19 4.2E-07-1 .CO 12 20 1.0E-30 0.00 42 

13 14 4.SE-08 0.06 13 15 2.2E-08 0.02 13 16 1.9E-08-0.36 13 17 2.0E-08-0.53 43 

13 18 2.2E-08-Q.69 13 19 2.5E-08-0.80 13 20 1.0E-30 0.00 13 21 1.0E-30 0.00 44 

14 15 3.2E-08 0.12 14 16 8.1E-08-0.26 14 17 1.2E-07-0.43 14 18 1.6E-07-0.58 45 

14 19 1.9E-07-0.69 14 20 1.0E-30 0.00 14 21 1.0E-30 0.00 14 22 1.0E-30 0.00 46 

15 16 7.3E-03 0.16 15 17 1.2E-07-G.16 15 18 1.7E-07-0.31 15 19 1.9E-07-Q.45 4? 

16 17 7.2E-08 0.26 16 18 1.3E-07-0.09 16 19 1.7E-07-0.23 16 20 l.flE-30 0.00 48. 

17 18 7.4E-08 0.30 17 19 1.4E-07-0.08 17 20 1.0E-30 0.00 17 21 1.0E-30 0.00 49 

18 19 7.6E-08 0.32 18 20 1.0E-30 0.00 18 21 1.0E-30 0.00 18 22 1.0E-30 0.00 50 

-1 0 0 . 


28.010 

4 6 

5 4 

0 



2.000 0.000 

2207.190 

16.136 

-0.040 

0.000 

1.93220 2.029E-02 

4.000 9168.400 

1902.840 

14.910 

0.090 

0.000 

1.72200 1.800E-02 

2.000 25461.500 

2419.840 

23.190 

-0.538 

0.000 

2.08300 1.950E-02 

4.000 51663.2 

907.71 

11.91 

0.016 

0. 

1.113 0.020 

2.000 64622.199 

2050.000 

G.000 

0.000 

0.000 

1.65000 5.000E-02 


N 4S 1 .401E-F01 7.040E+04 4.0C0E+00 1.500E+00 O.OOOEtOO 

Ni 3P 1.401E+01 7.040E+04 9.000E+00 1.000E+00 1.0OOE+O9 

CROSS-SECTIONS ASSUMED TO BE THE SAME AS FOR X-B OF CRANDALL ET AL 

8.727' 11.01 16.52 22.03 27.54 41.30 55.07 82.61 

2.950E-16 2.830E-16 2.380E-16 1.9GQE-16 1.550E-16 1.100E-16 0.890E-16 0.683E-16 

CROSS-SECTIONS ASSUMED TO BE THE SAME AS FOR X-B OF CRANDALL ET AL 

7.619 9.604 14.41 19.21 24.01 36.01 48.02 72.03 

2.950E-16 2.830E-16 2.380E-16 1.900E-16 1.550E-16 1.100E-16 G.89QE-16 0.680E-16 

CROSS-SECTIONS ASSUMED TO BE THE SAME AS FOR X-B OF CRANDALL ET AL 

5.553 7.014 10.52 14.03 17.54 26.30 35.07 52.61 

2.950E-16 2.830E-16 2.380E-16 1.9G0E-16 1.550E-16 1.100E-16 0.890E-16 0.680E-16 

CROSS-SECTIONS ASSUMED TO BE THE StflE AS FOR X-B OF CRANDALL ET AL 

2.323 2.931 4.397 5.863 7.328 10.99 14.66 21.98 

2.950E-16 2.830E-16 2.380E-16 1.90GE-16 1.550E-16 1.100E-16 0.890E-16 0.680E-16 

N2+MEI 1 2 10 

0 0 4.751E-01 0 1 3.798E-01 0 2 1.226E-01 0 3 2.055E-G2 0 4 1.914E-03 

C 5 9.S22E-05 1 0 3.255E-01 1 1 3.115E-01 1 2 3.35SE-C1 1 3 2.368E-01 

1 4 6.236E-02 1 5 7.946E-03 1 6 5.163E-04 2 0 1.360E-01 2 1 2.245E-01 

2 2 2.137E-02 2 3 1.851E-01 2 4 2.946E-01 2 5 1.171E-93 2 6 1.972E-03 

2 7 1.581E-03 3 0 4.526E-02 3 1 1.990E-01 3 2 7.974E-01 3 3 1.049E-01 

3 4 6.274E-02 3 5 2.929E-01 3 6 1.738E-01 3 7 3.733E-02 3 8 3.685E-03 

4 0 1.329E-02 4 1 1.032E-01 4 2 1.745E-01 4 3 ?.l*5E-03 4 4 1.553E-01 

4 5 5.808E-03 4 6 2.479E-01 4 7 2.230E-01 4 8 6.228E-02 4 9 7.239E-G3 

5 0 3.624E-03 5 1 4.145E-02 5 2 1.395E-01 5 3 1.D78E-01 5 4 6.918E-03 

5 5 1.509E-01 5 6 5.609E-03 5 7 1.816E-01 5 8 2.578E-01 5 9 9.165E-02 

CROSS-SECTIONS ASSUMED TO BE THE SAME AS FOR X-B OF CRANDALL ET AL 
1.118 1.411 2.116 2.821 3.527 5.289 7.053 10.58 

2.950E-16 2.830E-16 2.380E-16 1.9QGE-16 1.55QE-16 1.100E-16 0.890E-16 0.680E-16 

0. 

N2+ 1- 1 3 36 

G 0 6.509E-01 1 0 3.014E-01 2 0 4.537E-02 3 0 2.24BE-03 4 9 1.452E-05 

G 1 2.588E-01 1 1 2.226E-01 2 1 4.060E-01 3 1 1.056E-01 4 1 6.935E-03 

5 1 3.986E-05 0 2 7.016E-G2 1 2 2.860E-01 2 2 5.065E-02 3 2 4.137E-01 

4 2 1.660E-01 5 2 1.340E-02 6 2 5.729E-05 7 2 1.132E-Q5 9 3 1.690E-G2 

1 3 1.324E-91 2 3 2.290E-91 3 3 2.101E-03 4 3 3.792E-01 5 3 2.205E-01 

6 3 2.063E-02 7 3 4.930E-Q5 8 3 3.006E-05 0 4 3.297E-03 1 4 4.273E-02 
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9 
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10 

9 1.672E-01 
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14 

Q 

3.071E-04 

15 

9 6.400E-05 

2 10 8.445E-05 

3 

10 

9.639E-04 

4 10 6.599E-03 

5 

10 

2.826E-02 

6 10 7.442E-02 

7 10 1.084E-01 

8 

10 

5.865E-02 

3 10 5.552E-B4 10 

10 

9.141E-02 

11 

10 1.579E-01 12 10 4.338E-G1 

13 

10 

3.432E-02 

14 10 4.364E-03 

15 

10 

2.499E-04 

16 10 1 , 171E-04 

2 11 1.675E-05 

3 

11 

2.324E-04 

4 11 1.942E-C3 

C. 

J 

11 

1.043E-02 

6 11 3.652E-02 

7 11 8.C51E-02 

8 

11 

9.821E-02 

3 11 4.075E-02 

10 

11 

3.604E-03 

11 

11 8.818E-Q2 12 11 1.554E-01 

* Q 

11 

4.496E-91 

14 11 2.722E-02 

15 

11 

7.165E-03 

16 11 1.355E-04 17 11 1.867E-04 

3 

12 5.156E-05 

4 12 5.207E-04 

5 

12 

3.406E-03 

6 12 1.496E-02 

7 12 4.411E-02 

8 

12 

8.319E-02 

9 12 8 . 628E-02 

10 

12 

2.710E-02 

11 

12 7.896E-03 

12 12 8.205E-02 

13 

12 

1.593E-01 

14 12 4.615E-01 

15 

12 

1.876E-02 

16 12 1.068E-02 17 12 2.933E-05 

1 0 
x W 

12 

2.587E-04 

19 12 2.439E-05 

2 

13 

1.044E-05 

4 13 1.281E-04 

5 13 1.007E-G3 

6 

13 

5.378E-03 

7 13 1.391E-02 

8 

13 

5.053E-02 

9 13 8.288E-02 

10 13 7.393E-02 


13 

1 . 720E-02 

12 13 1.23SE-02 

1 7 

13 

7.384E-02 

14 

13 1.697E-0! 

15 13 4.681E-01 

16 

13 

1.018E-02 

17 13 1.459E-02 

18 

13 

3.550E-05 

19 13 3.056E-04 

4 14 2.877E-05 

5 

14 

2.724E-04 

6 14 1.741E-03 

7 

14 

7.823E-03 

8 14 2.495E-02 

9 14 5.544E-02 

10 

14 

8.C18E-02 

11 14 6.208E-02 

12 

14 

1.034E-02 

13 14 1.651E-02 14 14 6.418E-02 

15 14 

1.866E-01 

16 14 4.676E-01 

17 

14 

3.207E-03 

13 14 1.831E-02 19 14 3.955E-04 

5 15 

6.737E-C5 
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0 4 1.579E-Q4 

0 

5 

8.941E-04 

0 

6 2.501E-03 

0 7 7.498E-03 

0 

8 

1.888E-02 

0 9 4.020E-02 

c 

10 

1.119E-01 

0 

11 1 . 469E-01 

0 12 1.642E-01 

0 

13 

1.556E-01 

0 14 8.237E-02 

0 15 4.467E-02 

0 

16 6.454E-03 

0 17 1.574E-03 

i 

3 

2.379E-04 

1 4 1.I05E-B3 

1 

5 4.051E-03 

1 

6 1.193E-Q2 

1 7 2.838E-02 

1 

8 

5.433E-02 

1 9 8.246E-02 

i 

10 

7.993E-02 

i 

11 3.886E-02 

1 12 3.775E-03 

1 

13 

9.785E-G3 

1 14 1 .23IE-Q1 

X 

15 

1.498E-01 

1 

16 7.868E-02 

1 17 3.522E-02 

1 

18 

2.220E-03 

2 2 2.055E-04 

2 

3 1.061E-03 

2 

4 4.119E-03 

2 5 1.243E-0! 

2 

6 

2.937E-02 

2 7 5.383E-Q2 

2 

8 

7.418E-02 

2 

9 7.166E-02 

2 10 5.664E-0- 

2 

ii 

6.219E-03 

2 12 4.435E-02 

2 

13 

7.148E-02 

2 

14 5.573E-03 

2 15 1.365E-02 

■Hr 

L 

16 

1.467E-01 

2 17 1.458E-01 

2 18 3.852E-02 

2 

19 1.260E-03 

3 1 1.266E-04 

3 

2 

7.873E-04 

3 3 3.383E-Q3 

3 

4 

1.083E-02 

3 

5 2.642E-02 

3 6 4.873E-02 

3 

7 

6.544E-02 

3 8 5.322E-02 

3 

Q 

J 

2.601E-Q2 

3 

10 1.461E-02 

3 11 4.747E-G2 

3 

12 

4.558E-02 

3 13 9.9S1E-03 

3 

14 4.763E-Q2 

3 

15 6.338E-02 

3 16 3.506E-03 

3 

1 ? 

7.154E-02 

3 18 1.543E-01 

3 

19 

2.868E-02 

3 

20 2.104E-04 

4 1 4.776E-04 

4 

2 

2.441E-02 

4 3 8.604E-Q3 

4 

4 

2.231E-Q2 

4 

5 4.286E-02 

4 6 5.903E-02 

4 

7 

5.284E-02 

4 8 2.278E-02 

4 

9 3.107E-04 

4 

10 4.162E-Q2 

4 11 3.102E-02 

4 

12 

2.057E-03 

4 13 1.384E-02 

4 14 2.859E-02 

4 

16 6.297E-02 

4 17 2.450E-G2 

4 18 

8.839E-02 

4 19 1.494E-01 

4 20 1.189E-02 

5 

0 2.140E-04 

5 I 1.563E-03 

5 

2 6.463E-03 

5 3 1.834E-02 

5 

4 

3.756E-02 

Q 

5 5.462E-02 

5 6 5.185E-02 

5 

7 

2.462E-02 
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5 8 8.863E-04 5 9 1.169E-02 5 10 2.555E-02 5 11 9.533E-04 5 12 1.462E-Q2 

5 13 3.651E-02 5 14 1.906E-03 5 15 3.396E-02 5 16 8.541E-04 5 17 2.805E-02 

5 18 1.584E-02 5 13 1.384E-01 5 20 1.102E-01 5 21 1.694E-03 6 0 8.007E-04 

€ 1 4.533E-03 6 2 1.487E-02 6 3 3.315E-02 6 4 5.168E-02 6 5 5.310E-02 

6 £ 2.905E-02 6 7 2.669E-03 6 8 7.266E-03 6 9 2.986E-02 6 10 1.364E-03 

£ 11 1.171E-02 £ 12 3.032E-02 6 13 1.091E-02 6 14 2.913E-02 £ 15 2.045E-02 

6 16 2.965E-82 6 17 3.096E-02 6 18 3.761E-02 6 19 1.295E-03 6 20 2.057E-01 

6 21 4.502E-02 7 0 2.732E-03 7 1 1.163E-02 7 2 2.957E-02 7 3 4.991E-02 

7 4 5.571E-02 7 5 3.501E-02 7 6 5.91QE-G3 7 7 3.5Q8E-03 7 8 2.451E-02 

7 9 2.433E-Q2 ? 10 7.875E-03 7 11 2.579E-02 7 12 1.041E-02 7 13 1.982E-03 

7 14 1.547E-02 7 15 6.758E-04 7 16 1.859E-02 7 17 8.836E-04 7 18 2.156E-02 

7 19 5.653E-02 7 20 2.G86E-G2 7 21 2.030E-01 7 22 6.649E-03 8 0 2.272E-02 

8 1 4.752E-02 8 2 6.504E-02 8 3 4.986E-02 8 4 1.606E-02 8 6 1.551E-02 

8 7 2.468E-02 3 8 7.102E-03 8 9 2.G77E-03 8 10 1.226E-02 8 11 1.357E-04 

8 12 1.509E-02 8 13 1.338E-02 8 14 1.572E-02 8 15 1.224E-02 8 16 1.958E-02 

8 17 8.542E-03 8 18 2.511E-02 8 19 2.164E-02 8 20 5.373E-03 8 21 5.069E-03 

8 22 2.433E-01 8 23 1.599E-02 9 0 5.255E-02 9 1 6.827E-02 9 2 6.214E-02 

9 3 2.24GE-02 9 4 1.873E-04 9 5 1.256E-02 9 6 2.450E-02 9 7 9.697E-03 

9 8 6.955E-04 9 9 1.524E-02 9 11 1.157E-02 9 12 1.326E-02 9 14 1.165E-02 

9 15 2.451E-04 9 16 7.723E-03 9 17 3.467E-03 9 18 1.668E-03 9 19 1.614E-02 

9 20 3.436E-02 3 21 5.754E-02 9 22 6.642E-02 9 23 1.387E-01 9 24 1.769E-04 

10 0 1.015E-01 10 1 6.956E-02 10 2 3.610E-02 10 3 9.781E-04 10 4 9.260E-03 

10 5 2.566E-92 10 6 1.193E-02 10 8 1.277E-02 10 9 1.389E-02 10 10 8.671E-03 

10 11 1.308E-02 10 12 4.079E-04 10 13 9.081E-03 10 15 1.218E-02 10 16 1.937E-03 

10 17 1.562E-02 10 18 1.841E-02 10 19 2.075E-03 10 20 2.150E-04 10 21 5.829E-03 

10 22 3.749E-02 10 23 2.378E-01 10 24 2.930E-03 11 0 2.010E-01 11 1 4.128E-03 

11 2 9.GB1E-04 11 3 3.431E-02 11 4 1.479E-02 11 5 1.31GE-03 11 6 1.013E-02 

11 7 1.366E-02 11 8 2.956E-03 11 9 4.710E-03 11 10 2.317E-03 11 11 4.536E-03 

11 12 1.Q66E-02 11 13 6.973E-04 11 14 S.468E-G3 11 15 1.368E-04 11 16 3.669E-03 

11 17 4 . 133E-03 11 19 2.462E-03 11 20 7.770E-03 11 21 1.372E-02 11 22 2.433E-02 

11 23 6.579E-02 11 24 1.756E-01 12 0 1.293E-01 12 1 8.939E-02 12 2 5.361E-03 

12 3 1.924E-02 12 4 1.544E-G2 12 5 7.623E-03 12 6 1.198E-02 12 7 4.165E-03 

12 8 7.042E-03 12 9 7.446E-03 12 10 7.521E-G3 12 11 3.516E-G3 12 12 3.584E-03 

12 13 7.330E-03 12 14 6.465E-03 12 15 5.513E-03 12 16 9.053E-03 12 17 8.782E-04 

12 18 5.463E-Q3 12 19 9.831E-03 12 20 1.299E-02 12 21 1.678E-C2 12 22 2.334E-02 

CROSS-SECT IONS ASSUMED TO BE THE SAME AS FOR 9-X OF CRANDALL ET AL 

6,405 8.083 12.12 16.17 20.21 30.31 40.42 60.62 

2.950E-16 2.830E-16 2.380E-16 1.900E-16 1.550E-16 1.100E-16 0.890E-16 0.680E-16 

0. 

N2+MEI 2 3 61 

0 0 S.858E-02 0 1 2.G10E-01 0 2 2.274E-01 0 3 1.897E-Q1 0 4 1.304E-01 

0 5 7.827E-02 0 6 4.202E-G2 0 7 2.023E-02 0 8 8.L37E-03 0 9 2.979E-03 

1 0 2.331E-01 1 1 1.645E-01 1 2 2.267E-02 1 3 1.099E-02 1 4 7.699E-02 

1 5 1.276E-G1 1 6 1.324E-01 1 7 1.O54E-01 1 8 6.863E-02 1 9 3.678E-02 

1 10 4 . 559E-03 1 11 6.144E-04 1 13 1.757E-04 2 0 2.739E-01 2 1 1.263E-02 

2 2 6.140E-02 2 3 1.150E-01 2 4 4.835E-02 2 5 3.454E-04 2 6 2.816E-02 

2 7 8.558E-02 2 8 1.196E-01 2 9 1.136E-01 2 10 4.217E-02 2 11 1.476E-02 

2 12 2.383E-G3 2 14 7.023E-04 2 15 2.225E-04 3 0 2.110E-01 3 1 4.466E-02 

3 2 1.213E-01 3 3 9.749E-03 3 4 3.071E-02 3 5 8.I35E-02 3 6 4.921E-02 

3 7 3.362E-03 3 8 1.564E-02 3 9 7.232E-02 3 10 1.179E-01 3 11 7.927E-02 

3 12 3.386E-02 3 13 6.730E-G3 3 14 1.545E-03 3 15 1.969E-03 3 17 2.360E-04 

4 0 1.175E-01 4 1 1.690E-01 4 2 1.948E-02 4 3 5.468E-02 4 4 7.808E-02 

4 5 6.532E-03 4 6 2.003E-02 4 7 5.987E-02 4 8 3.954E-02 4 9 2.300E-03 

4 10 S.239E-02 4 11 1.290E-01 4 12 1.155E-G1 4 13 6.142E-Q2 4 14 1.524E-04 
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JRIGINAL FAGS \B 

OF POOR QUALITY 


15 2.870E-03 
0 4.856E-02 
5 5.362E-02 

11 3.722E-02 

16 3.187E-03 
3 5.523E-G3 
8 3.432E-G2 

13 7.689E-02 

6 18 1.325E-03 

7 3 6.253E-02 
7 8 1.G61E-02 
7 13 1 .344E-04 

7 18 S.947E-D4 

8 3 2.014E-01 
S 8 3.781E-02 

13 1.345E-G2 
18 1.800E-02 
5 9.423E-02 
10 2.651E-02 

9 15 1.999E-03 
10 4 1.066E-Q1 


16 1.669E-03 
1 2.020E-01 
6 5 . 327E-02 
12 1 , 109E-01 
18 1.376E-03 
4 6.783E-02 
9 6.546E-04 
14 1.222E-01 

6 19 9.596E-04 

7 4 5.351E-02 
7 9 4.128E-02 
7 14 1.267E-01 

7 19 4.369E-Q3 
3 4 5.484E-03 

8 9 1.110E-G3 
8 14 2.037E-02 

8 19 1.632E-03 

9 6 2.519E-02 
9 11 2.462E-03 
9 lb 5.189E-02 

10 5 2.639E-01 


17 4.403E-04 
2 3.091E-02 
7 3.333E-03 
13 1.385E-01 
0 1 . 438E-02 
5 3.998E-02 
6 10 3.239E-02 
6 15 4.813E-02 


0 2.712E-G3 
5 I.G62E-02 


7 10 2.364E-04 


7 15 1.416E-01 

8 0 2.265E-04 
8 5 7 . 1G1E-02 
8 10 3.166E-02 

8 15 1.016E-Q1 

9 2 2.899E-03 
9 7 1 .073E-02 
9 12 9.289E-03 
9 17 1.177E-01 

10 6 4.767E-02 10 

10 10 1.842E-03 10 11 2.221E-02 10 12 1.092E-02 10 13 9.910E-04 10 14 1.444E-02 
10 15 1.188E-03 10 16 1.529E-03 10 17 1.059E-Q1 10 18 4.941E-02 10 19 1.990E-02 

4 7.679E-03 II 


4 18 1 .643E-04 

5 3 9.172E-02 
5 8 1.674E-02 

5 14 2.914E-Q2 

6 1 1.359E-01 
6 6 3.357E-03 
6 11 8.087E-03 

6 16 5.928E-03 

7 1 5.621E-02 
7 6 5.370E-02 
7 11 1.802E-02 

7 16 7.417E-93 

8 1 1 . 3G7E-02 
8 6 3.963E-03 
8 11 6.S58E-03 

8 16 9.138E-02 

9 3 6.683E-G2 
9 8 4.088E-02 
9 13 2.262E-02 
9 19 3.142E-G2 10 

7 3.430E-02 10 


19 1.416E-04 
4 1.427E-04 
9 4.537E-02 
15 8.684E-04 
2 1.596E-01 
7 4.849E-02 
6 12 8.612E-03 
6 17 6.864E-03 
2 1.997E-01 
7 T.205E-02 
12 1.626E-02 
17 1 . 839E-02 
2 1.137E-01 
7 3.053E-02 
8 12 3.060E-03 

8 17 3.263E-03 
3 4 2.357E-Q1 

9 9 3.076E-03 
9 14 3.273E-04 

5.339E-G3 
3.08GE-02 


11 


2 2.245E-04 11 
7 2.125E-02 11 


3 5.422E-04 11 
8 2.682E-02 11 


5 1.488E-01 11 6 2.729E-01 
9 7.368E-03 11 10 2.274E-02 11 11 7.674E-04 


11 12 1.179E-02 11 13 1.6Q1E-Q2 11 14 9.282E-03 11 15 1.733E-02 11 16 2.068E-04 


11 17 3.478E-C2 11 18 1.150E-01 11 19 3.166E-03 12 

12 6 8.011E-03 12 7 2.I78E-01 12 8 2.616E 


7 4.955E-03 13 3 2.330E-01 13 


4 1.740E-03 12 5 6.393E-03 


14 


18 5.836E-03 13 19 4.587E-C2 14 
8 4.951E-02 14 9 3.759E-04 14 


14 18 1.280E-02 14 19 1.100E-02 15 


16 6 1.202E-G4 16 ? 1.720E-03 16 8 3.403E-04 16 


18 7 1.227E-04 18 8 4.722E-04 18 9 1.124E 

18 12 3.762E-03 18 13 8.621E-02 18 14 6.917E 

18 17 1.678E-01 18 18 5.230E-02 19 8 3.651E 

19 12 6.207E-03 19 13 3.946E-02 19 14 3.596E 

CROSS-SECTIONS ASSLftED TO EE THE SAME AS FOR X-B OF CRANDAl 


12 

9 

6.698E-03 12 

10 

2.786E-02 

12 

15 

7.056E-02 

12 

16 

1.222E-02 

13 

5 

3.214E-03 

13 

6 

1.591E-Q2 

13 

10 

6.575E-04 

13 

11 

3.209E-02 

13 

15 

7.066E-03 

13 

1 7 

1.549E-G2 

14 

6 

1.754E-03 

14 

7 

4.791E-03 

14 

11 

2.551E-02 

14 

12 

2.676E-02 

14 

16 

1 .588E-03 

14 

17 

1.967E-03 

15 

7 

5.386E-02 

15 

Q 

3.030E-03 

15 

12 

4.166E-02 

15 

13 

5.199E-02 

15 

18 

8.720E-04 

15 

19 

1.529E-02 

16 

9 

2.191E-02 

16 

10 

8.807E-02 

16 14 1.157E-Q1 

16 

15 

7.365E-02 

17 

7 

6.160E-0: 

• 7 

9 

6.856E-03 

17 

13 

1.144E-0 1 

17 

14 

3.202E-C2 

17 

IS 

1 .586E-03 

17 

19 

2.835E-C3 

18 

10 

4.144E-03 

13 

11 

3.253E-02 

18 

15 

3.329E-02 

18 

16 

4.071E-03 

19 

10 

7.526E-04 

19 

11 

1.653E-G2 

19 

15 

4.942E-02 

19 

16 

1 . 82GE-02 


PTA! 


o r> c ' 

C • V-JC 


2.589 


3.634 5.179 6.473 9.709 12.95 19.42 

2.950E-16 2.830E-16 2.380E-16 1.900E-16 1.550E-16 1.10GE-16 0.890E-16 0.680E-16 

0. 


N2+JDI 2 

0 0 2.625E-06 

1 1 3.153E-04 

2 1 1.156E-0S 


14 

2 3.782E-04 0 
2 2.208E-C3 1 
2 6.80BE-03 2 


3 1.9P9E-93 
3 9.528E-03 
3 2.286E-02 


4 7.451E-03 
4 2.820E-02 
4 5.450E-02 


5 2.116E-02 
5 6. 006E-02 
5 8.260E-02 
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3 

0 2.676E-04 

3 

1 2.992E-03 

0 

w 

2 1.475E-02 

3 

3 4.141E-Q2 

3 

4 6.928E-G2 

4 

0 6.370E-04 

4 

1 6.138E-03 

4 

2 2.518E-92 

4 

3 5.561E-02 

4 

4 6.688E-02 

4 

5 3.501E-02 

5 

0 1.282E-03 

5 

1 1.063E-02 

5 

2 3.603E-02 

5 

3 6.105E-02 

5 

4 4.737E-02 

5 

5 7.281E-03 

6 

0 2.267E-03 

6 

1 1.617E-02 

6 

2 4.487E-02 

6 

3 5.632E-02 

6 

4 2.363E-02 

6 

5 2.567E-04 

7 

0 3.621E-03 

7 

1 2.217E-02 

7 

2 4.982E-G2 

7 

3 4.401E-02 

7 

4 6.369E-03 

7 

5 9.586E-03 

8 

0 5.322E-03 

8 

1 2.733E-02 

8 

2 5.016E-02 

8 

3 2.875E-Q2 

8 

4 5.422E-02 

8 

5 2.267E-02 

9 

0 7.306E-03 

9 

1 3.282E-02 

9 

2 4.629E-02 

9 

3 1.493E-03 

3 

4 3.046E-03 

9 

5 2.972E-02 10 

0 9.470E-03 10 

1 3.634E-Q2T0 

2 3.939E-02 10 

3 5.296E-03 

10 

4 1.062E-02 

10 

5 2.806E-02 11 

0 1.169E-02 11 

1 3.827E-02 11 

2 3.098E-02 

11 

3 6.495E-04 11 

4 1.808E-02 11 

5 2.041E-02 

0 

1 4.563E-05 

1 

0 2.100E-05 


CROSS-SECT I ON’S ASSIMED TO BE THE SAME AS FOR X-B OF CRANDALL ETAL 
5.287 6.673 10.01 13.35 16.68 25.02 33.36 . 50.04 

2.950E-16 2.830E-16 2.380E-16 1.900E-16 1.550E-16 1.100E-16 0.S90E-16 0.680E-16 

0 . 


N2+JDI 3 4 43 


0 

7 1.400E-04 

0 

8 6.043E-04 

0 

9 7.837E-93 

0 10 2.271E-02 

0 

11 5.541E-02 

0 

12 1.799E-01 

0 

13 2.263E-01 

0 

14 1.314E-01 

0 15 4.570E-02 

1 

6 2.347E-04 

1 

7 9.487E-04 

1 

8 3.397E-03 

1 

9 2.759E-02 

1 

X 

10 5.842E-02 


11 9.454E-02 

1 

12 6.349E-02 

i 

13 4.704E-03 

1 

14 1.817E-01 

1 

15 2.54QE-01 

1 

16 1.953E-G2 

1 

17 4.728E-04 

2 

5 2 . 643E-04 

2 

6 1.016E-03 

2 

7 3.453E-03 

2 

8 1.021E-02 

2 

9 5.059E-02 

2 10 7.533E-02 

2 

11 7.295E-02 

2 13 4.086E-02 

2 14 1.873E-02 

C 

15 4.644E-02 

2 

16 2.376E-01 

2 

17 1.340E-03 

2 18 1.174E-03 

0 

w 

4 2.611E-04 

3 

5 9.672E-04 

3 

6 3.154E-03 

3 

7 8.963E-03 

0 

w 

8 2.160E-02 

3 

9 6.202E-02 

0 

10 5.959E-02 

3 

11 2.542E-02 

3 

12 2.943E-02 

3 

13 5 . 338E-02 

3 14 2.494E-02 

3 15 7.023E-02 

C/ 

16 2.159E-01 

0 

1? 4.280E-02 

3 

18 6.927E-03 

3 

19 1.089E-03 

* 

3 2.491E-04 

6 

4 9.037E-04 

4 

5 2.846E-03 

4 

6 7.804E-Q3 

4 

7 1.832E-02 

4 

8 3.544E-02 

4 

9 5.343E-02 

4 

10 2.664E-02 

4 

11 5.688E-04 

4 

12 4.220E-02 

4 13 1.237E-02 

4 

14 4.757E-02 

4 

15 2.575E-03 

4 

16 1.230E-02 

4 17 3.780E-01 

4 

18 3.457E-G2 

4 

19 2.702E-04 

5 

2 2.367E-04 

5 

3 8.676E-04 

5 

4 2.671E-03 

c 

J 

5 7.086E-03 

5 

6 1.615E-02 

5 

7 3.080E-02 

tr 

8 4.643E-02 

5 

9 2.979E-02 

5 

10 3.001E-03 


11 8.579E-03 

5 

12 1.775E-02 

5 

13 1.744E-03 

5 

14 1.063E-02 

r 

15 1.880E-02 

5 

16 1.431E-02 

5 

17 1.539E-0! 

5 

18 4.112E-01 

5 

19 3.821E-02 

6 

1 2.178E-04 

6 

2 8.595E-04 

6 

3 2.654E-03 

6 

4 6.865E-03 

6 

5 1.516E-02 

£ 

6 2.322E-02 

6 

7 4 . 257E-02 

6 

8 4.771E-02 

6 

9 6.853E-03 

6 10 2.823E-03 

6 

11 2.488E-02 

6 

12 1.644E-04 

6 13 1.976E-02 

6 

14 2.658E-03 

6 15 3.Q42E-02 

6 16 3.599E-02 

6 

17 1.765E-02 

6 

18 1.712E-01 

7 

0 1 .727E-04 

7 

1 8.435E-04 

7 

2 2.765E-03 

7 

3 7.111E-03 

7 

4 1.526E-02 

7 

5 2.754E-02 

7 

6 4.079E-G2 

7 

7 4.643E-02 

7 

8 3.489E-02 

7 

9 3.820E-04 

7 

10 1.705E-02 

7 11 2.399E-02 

7 12 8.803E-C3 

7 

13 2.183E-02 

7 

14 1.994E-02 

7 

15 6.S25E-03 

7 16 7.100E-03 

7 17 9.588E-04 

7 

18 6.941E-03 

7 

19 3.421E-01 

8 

0 2.867E-G3 

8 

1 8.360E-03 

8 

2 1.825E-02 

8 

3 3.O94E-02 

8 

4 4.274E-02 

8 

5 4.63SE-02 

8 

6 3.593E-02 

8 

7 1.472E-02 

8 

8 3.223E-04 

8 

9 2.1G6E-02 

8 

10 1.1-5E-02 

0 

11 1.462E-04 

3 12 1.049E-02 

e 

13 1 . 107E-03 

8 

14 9.045E-04 

8 

15 1.4o6E-02 

8 

16 1.706E-02 

S’ 

17 1.621E-02 

8 18 1.177E-02 

8 

13 7.529E-03 

9 

0 9.386E-03 

9 

1 2.0G3E-02 

9 

2 3.486E-02 

2 

3 4.571E-02 

9 

4 4.74QE-02 

9 

5 3.498E-02 

Q 

6 1.414E-C2 

9 

7 4.308E-04 

9 

8 6.384E-03 

9 

9 1.362E-02 

9 10 2.217E-Q4 

9 11 9.246E-03 

9 12 1.145E-04 

9 13 1.121E-Q2 

9 

14 5.186E-Q3 

9 15 9.625E-03 

9 16 7.2C2E-03 

Q 

17 3.854E-04 

9 18 1.447E-02 

9 

19 1.089E-02 

10 

0 2.588E-02 

10 

1 3.808E-02 

10 

2 5.164E-02 

10 

3 4.874E-02 10 

4 3.393E-02 10 

5 1.229E-02 10 

6 2.351E-04 

10 

7 6.373E-03 10 

8 1.858E-02 10 

9 1 . 047E-03 10 10 5.866E-03 10 

11 1.372E-02 

10 

12 5.994E-03 10 

13 9.979E-03 10 

14 1.182E-D2 10 16 4.727E-04 10 

17 7.276E-03 

lo- 

18 7.282E-04 10 19 1.407E-02 11 

0 1.113E-Q1 11 

1 5.352E-G2 11 

2 3.960E-02 

ll 

3 7.436E-03 11 

5 9.672E-03 

11 

6 1.900E-02 11 

7 1.508E-02 11 

8 1.939E-03 
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11 9 1.243E-02 11 10 5.944E-03 11 11 6.697E-04 11 12 2.967E-03 11 13 3.581E-03 

11 14 8.869E-04 11 15 8.174E-Q3 11 16 6.102E-03 11 17 5.154E-04 11 18 8.523E-03 

12 0 1.993E-01 12 1 1.168E-03 12 2 4.138E-Q4 12 3 2.162E-02 12 4 1.619E-02 

12 5 1.654E-02 12 6 6.967E-04 12 7 2.334E-03 12 8 1.279E-02 12 10 6.565E-03 

12 11 6.843E-03 12 12 6.933E-03 12 13 2.334E-03 12 14 4.345E-03 12 15 2.758E-03 

CROSS-SECT I QMS ASSUHEDTQ BE THE SAME AS FOR X -8 OF CRANDALL ET AL 

3.235 4.083 6.125 8.166 10,21 15.31 20.42 30.62 

2.950E-16 2.330E-16 2.330E-16 1.900E-16 1.550E-16 1.100E-16 0.890E-16 0.68GE-16 


N2 

28.010 

4 6 

5 4 


1.0 

0 . 

2358.027 

14.1351 • 

-1 . 751 E-02-1 . 1 44E -0 4 1.9980 

3.0 

49754.8 

1460.518 

13.8313 

5.993E-03 1.853E-03 1.45455 

6.0 

59306.8 

1733.391 

14.1221 - 

-5.688E-02-3.612E-03 1.6374 

2.0 

68951 .2 

1634.208 

13.9491 

7.935E-03-2.311E-04 1.61688 

6.0 

88977.9 

2047.178 

28.4450 

2.08833 0.5350 1.82473 

N 4S 

1.401E+01 

7.872E-F04 4.000E+00 

1.500E+00 Q.000E+00 

N 4S 

1.401E+0I 

7.872E+04 4.90BE+00 

1.500E+00 O.OOOE+OO 


CROSS-SECTIONS ASSUMED SAME AS FOR N2 1-3 OF CARTWRIGHT ET AL 


1.772E-02 

1.801E-02 

1.791E-02 

1.793E-02 

1.868E-02 


9.7594 10.618 13.27 15.93 19.91 26.55 34.51 47.78 

0 . 9.Q54E-16 0.225E-16 0.293E-16 0.241E-16 0.156E-16 0.120E-16 0.076E-16 

CROSS-SECTIONS ASSUMED SAME AS FOR N2 1-3 OF CARTWRIGHT ET AL 


3.5903 3.307 4.884 5.860 7.325 9.76? 12.70 17.58 

0. 0.054E-16 0.225E-16 0.299E-16 C.241E-16 0.156E-16 0.120E-16 G.076E-16 

CROSS-SECTI CMS ASSUMED SAME AS FOR N2 1-3 OF CARTWRIGHT ET AL 
2.4066 2.618 3.273 3.928 4.910 6.546 8.510 11.78 

0. 0.054E-16 0.225E-16 0.299E-16 Q.241E-16 0.156E-16 0.120E-16 0.076E-16 

CROSS-SECTIONS ASSUMED SAME AS FOR N2 1-3 OF CARTWRIGHT ET AL 


1.2110 1.318 1.647 1.376 2.470 3.234 4.282 5.923 


n t 


0.054E 

-16 0 

•225E-16 0. 

299E-16 0.241E-16 C 

I.156E-16 £ 

I.120E- 

-16 

0.C76E-16 

N2 VK 

i 
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9 

0 

5.900E-04 

0 

1 

5.337E-03 

0 

9 

2.2S6E-02 

0 

n 

6.167E- 

■02 

0 

4 

1.176E-01 

0 

5 

1.688E-01 

0 

6 

1.894E-01 

0 

-? 

( 

1.704E-02 

0 

8 

1.250E- 

.m 

0 

Q 

7.578E-02 

0 

10 

3.S28E-02 

0 

11 

1.621E-02 

0 

4 r\ 

5. 780 E -03 

o 

* 7 

1 , 738E* 

■03 

0 

14 

4.411E-04 

l 

0 

3.213E-03 

1 

i 

2.278E-02 

l 

7 

6.919E-02 

1 

3 

1.193E- 

■01 

1 

4 

1.216E-01 

i 

r. 

6.383E-02 

1 

6 

6.256E-03 

1 

? 

1.395E-02 

1 

X 

8 

7.866E- 

■02 

1 

9 

1.370E-01 


10 

1.45QE-01 

1 

11 

1 . 100E-01 

1 

12 

6.404E-02 

1 

13 

2.963E- 

■02 

i. 

14 

1 . 110E-02 

2 

fi 

9.975E-03 

0 

£. 


5.085E-02 

2 

2 

1.035E-01 

2 

‘d 

9.732E- 

•02 

2 

4 

2.922E-02 

o 

c. 

s 

2.161E-03 

/ 

6 

5.473E-02 

A 

c 

/ 

8.924E-02 

2 

8 

4.616E- 

■02 

2 

9 8.840E-04 

2 

10 

2.355E-02 

2 

11 

1.001E-01 

2 

12 

1.378E-01 

2 

13 

1.196E- 

■01 

2 

14 

7.472E-02 

3 

0 

2.133E-02 

3 

i 

7.850E-02 

3 

2 

9.768E-02 

3 

3 

3.326E- 

■02 

0 

■j 

4 

2.539E-03 

3 

c. 

V 

5.617E-02 

d 

6 

6. 391 E -02 

7 

7 

8.564E-03 

7 

yj 

8 

1.697E- 

■02 

3 

9 

7.318E-02 

0 

10 

6.1S1E-02 

0 

11 

7.6C0E-03 

0 

u 

12 

1.520E-02 

3 

1 0 
X w 

8.383E- 

■02 

4 

14 

1.315E-01 

4 

0 

3.642E-02 

4 


3.328E-02 

4 

0 

c. 

5.998E-02 

4 

3 

3.714E- 

■04 

4 

4 

4.107E-02 

4 

5 

5.758E-02 

4 

£ 

4.625E-03 

4 

7 

2.554E-02 

4 

S 

6.331E- 

■02 

4 

q 

1.316E-02 

4 

10 

7.127E-03 

4 

11 

6.276E-02 

4 

12 

6.314E-02 

4 

13 

9.383E- 

■03 

4 

14 

1.379E-02 

5 

e 

5.290E-02 

5 

1 

8.962E-02 

5 

2 

2.011E-92 

5 

3 

1.465E- 

■02 

5 

4 

5.SS3E-02 

5 

5 

1.223E-02 

5 

6 

1.688E-02 

5 

7 

5.462E-02 

5 

8 

1.065E- 

■02 

c 

U 1 

3 

1 .643E-02 

5 

10 

5.871E-02 

5 

13 

2.016E-Q2 

5 

12 

6.585E-03 

5 

13 

6.143E- 

■02 

5 

14 

5.S32E-C2 

6 

3 

6.799E-02 

6 

1 

7.082E-02 

6 

2 

8.331E-04 

6 

3 

4.233E- 

L : C 

5 

4 

3.400E-02 

6 

5 2.630E-C3 

6 

6 4.768E-02 

6 

7 

1.641E-02 

6 

3 

1.163E- 

,s;0 

*. L. 

6 

Q 

5.008E-02 

6 

10 

9.734E-03 

6 

11 

1.729E-02 

6 

12 

5.579E-02 

6 

13 

1.457E- 

■02 

£ 

14 

1.131E-02 

7 

0 

7.933E-02 

7 

1 

4.539E-02 

7 

7 

5.264E-03 

7 

3 

5.154E- 

■02 

7 

4 

5.402E-G3 

7 

C. 

2.305E-02 

7 

6 

3.237E-02 

t 

7 

i 

1.710E-03 

7 

8 

4.3D8E- 

02 

7 

( 

9 

1.308E-02 

t 

10 

1.409E-02 

7 

{ 

11 

4.635E-02 

7 

12 

4 . 785E-G2 

7 

1 0 

2.447E- 

02 

7 

14 

5.170E-02 
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8 0 8.588E-02 8 1 2.205E-02 8 2 2.231E-02 8 3 3.803E-02 8 4 1.933E-Q3 

8 5 4.2C3E-02 8 6 4.185E-03 8 7 2.701E-02 3 8 2.572E-02 8 3 4.C73E-03 

8 10 4.148E-D2 8 11 6.297E-03 8 12 2.185E-02 8 13 4.QQ2E-02 8 14 3.600E-04 

8 0 3.730E-02 3 1 6.435E-03 9 2 3.838E-02 9 3 1.651E-02 9 4 1.315E-02 

9 5 2.890E-02 9 6 3.763E-03 9 7 3.696E-Q2 9 S 8.855E-04 9 9 3.1C9E-02 

9 10 1.592E-02 9 11 1.083E-02 9 12 3.765E-02 9 13 6.326E-Q4 9 14 3.294E-02 

1C 0 8.434E-02 10 1 2.053E-04 10 2 4.527E-02 10 3 2.254E-03 10 4 S.349E-02 

10 5 3.Q54E-03 1G 6 2.242E-02 10 7 1.837E-02 10 8 9.744E-03 10 9 3.G26E-02 

10 ID 5.231E-Q4 10 11 3.475E-02 10 12 5.380E-03 10 13 2.218E-02 10 14 2.757E-G2 

11 0 7.812E-02 11 1 2.015E-03 11 2 4.180E-02 11 3 9.890E-04 11 4 3.530E-02 

11 5 1.684E-05 11 8 3.257E-02 11 7 1.243E-03 11 8 2.B35E-02 11 9 7.166E-G2 

11 10 1.963E-02 11 11 1.892E-02 11 12 7.224E-03 11 13 3.197E-02 11 14 5.829E-06 

12 0 6.938E-02 12 1 9.015E-03 12 2 3.141E-02 12 3 9.423E-03 12 4 2.493E-02 

12 5 7.426E-03 12 6 2.478E-02 12 7 4.205E-03 12 8 2.719E-02 12 9 9.855E-04 

12 10 2.982E-02 12 11 2.597E-04 12 12 2.853E-02 12 13 5.872E-03 12 14 2.016E-02 

13 0 6.071E-02 13 1 1.817E-02 13 2 1.899E-02 13 3 2.061E-02 13 4 1.11SE-02 

13 5 2.003E-02 13 6 9.63QE-03 13 7 1.809E-02 13 8 1.114E-02 13 9 1.477E-02 

13 10 1.519E-02 13 11 9.732E-03 13 12 2.152E-G2 13 13 3.791E-03 13 14 2.831E-04 

14 0 5.149E-02 14 1 2.707E-02 14 2 8.494E-93 14 3 2.879E-02 14 4 1.925E-03 

14 5 2.732E-02 14 6 5.698E-04 14 7 2.605E-02 14 8 4.334E-04 14 9 2.527E-02 

14 10 9.608E-04 14 11 2.437E-02 14 12 2.827E-03 14 13 2.209E-02 14 14 7.438E-03 

15 0 4.28QE-02 15 1 3.418E-02 15 2 2.038E-03 15 3 3.106E-02 15 4 2.871E-04 

15 5 2.560E-02 15 6 2.212E-03 15 7 2.191E-02 15 8 3.623E-C3 15 9 2.041E-02 

15 10 3.825E-03 15 11 2.086E-02 15 12 2.852E-03 15 13 2.288E-02 15 14 1.148E-03 

2 15 3.567E-G2 2 16 1.342E-02 2 17 4.046E-O3 3 15 1.197E-01 3 18 7.543E-02 

3 17 3.543E-02 3 18 1.287E-02 3 19 3.690E-Q3 4 15 8.294E-G2 4 16 1.299E-01 

4 17 1.152E-Q1 4 18 6.961E-02 4 19 3.095E-02 5 15 5.905E-03 5 16 1.982E-02 

5 17 9.21QE-02 5 18 1.304E-01 5 19 1.Q66E-01 6 15 6.531E-02 6 16 4.826E-02 

6 17 1.141E-03 6 18 3.366E-02 6 19 1.068E-Q1 6 20 1.289E-01 5 20 5.938E-02 

6 21 9.341E-02 6 22 4.662E-02 6 23 1.704E-Q2 6 24 4.7O6E-03 7 20 5.591E-02 

7 15 6.143E-03 7 16 2.227E-02 ? 17 6.837E-02 7 18 3.475E-02 7 21 1.216E-01 

7 22 1.217E-01 7 23 7.625E-02 7 24 3.334E-02 7 25 1.070E-02 8 15 3.610E-G3 

8 16 4.227E-02 8 18 3.936E-02 8 19 6.567E-02 8 20 1.463E-02 S 21 1.114E-C2 

8 22 8.42GE-02 8 23 1.3Q5E-01 8 24 1.G69E-C1 8 25 5.701E-02 8 26 2.147E-02 

9 15 2-.810E-0-2 9 16 2.261E-03 9 1? 4.748E-02 9 18 2.603E-02 9 19 3.787E-03 

9 20 5.775E-02 9 21 5.110E-02 9 22 1.516E-93 9 23 3.563E-02 9 24 1.120E-01 

9 25 1.284E-01 9 26 8.575E-02 9 27 3.813E-G2 10 15 1.944E-03 10 16 4.137E-02 

10 17 1.221E-32 10 18 1.464E-02 10 19 5.044E-02 10 21 2.086E-02 10 22.6.749E-02 

10 23 2.717E-02 10 25 7.141E-Q2 10 26 1.302E-01 10 27 1.136E-01 11 15 3.333E-02 

11 16 1.235E-02 11 17 1.382E-02 11 18 3.941E-02 11 20 3.44GE-Q2 11 21 3.862E-02 

11 23 4.661E-02 11 24 5.915E-02 11 26 2.730E-02 11 27 1.CJ2E-Q1 12 15 1.998E-02 

12 16 6.000E-03 12 17 3.526E-Q2 12 19 3.137E-Q2 12 20 2.308E-02 12 22 4.881E-02 

12 23 1.619E-02 12 24 1.223E-Q2 12 25 6.568E-02 12 26 3.347E-02 13 16 3.060E-02 

13 18 2.180E-02 13 19 2.293E-02 13 21 4.054E-02 13 23 2.521E-G2 13 24 4.374E-02 

13 26 4.106E-02 13 27 6.174E-02 14 15 1.686E-02 14 16 1.609E-02 14 18 2.250E-02 

14 20 3.395E-02 14 22 2.305E-02 14 23 3.004E-02 14 25 4.613E-G2 14 26 2.G15E-02 

15 15 2.563E-C2 15 17 2.719E-02 15 19 2.415E-02 15 20 1.140E-02 15 21 1.37GE-02 

15 22 2.799E-02 15 24 3.891E-02 15 26 2.121E-02 15 27 4.501E-02 16 21 2.925E-02 

CROSS-SECT I CMS FROM CARTWRIGHT 

6.1693 7. 9. 11. 14. 17. 20. 26. 

0. 0.O3OE-16 0.094E-16 0.148E-16 0.204E-16 0.225E-16 0.183E-16 0.113E-16 

0. 

N2 8X 1 3 28 

0 0 6.117E-Q2 0 1 1.309E-Q1 0 2 2.753E-01 0 3 2.416E-01 0 4 1.442E-01 

0 5 6.185E-02 0 6 1.353E-02 0 7 4.555E-03 0 8 7.694E-04 1 0 1.487E-01 
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ORIGINAL PA'Q- 1& 
OF POOR QUAtH't 
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CROSS-SECTIONS FROM CARTWRIGHT 
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2 8 1.614E-01 3 8 7.840E-02 4 8 3.615E-Q2 5 8 4.675E-02 6 8 5.502E-02 

7 8 1.04QE-03 8 8 5.031E-02 9 8 3.869E-02 11 8 1.742E-02 12 8 4.169E-02 

13 3 3.071E-02 14 8 6.695E-03 0 9 4.454E-04 1 9 i,29 Q E-C2 2 9 9.406E-G2 

3 9 1.632E-Q1 4 9 9.168E-03 5 9 8.536E-02 6 9 2.Q10E-03 7 9 6.755E-02 

8 9 1 . 751E-02 9 9 1.174E-02 10 9 4.934E-02 11 9 2.518E-02 13 9 1.758E-02 

14 9 3.68GE-02 1 10 2.968E-03 2 10 3.718E-02 3 10 1.431E-01 4 10 1.085E-01 

5 10 7.958E-03 6 10 7.874E-02 7 10 1.538E-02 8 10 3.144E-02 9 10 5.Q74E-02 

10 10 1.843E-03 11 10 2.257E-02 12 10 4.332E-02 13 10 1.638E-02 1 11 5.266E-04 

2 11 1.069E-O2 3 11 7.518E-02 4 11 1.626E-01 5 11 3.911E-02 6 11 5.144E-02 

7 11 3.210E-02 8 11 5.359E-02 9 11 1.246E-03 10 11 4.905E-02 11 11 2.693E-02 

13 11 2.865E-02 14 11 3.626E-02 2 12 2.253E-03 3 12 2.675E-02 4 12 1.179E-01 

5 12 1.402E-01 6 12 1.628E-03 7 12 8.354E-02 8 12 1.043E-03 9 12 6.308E-02 

10 12 1.151E-02 11 12 1.839E-02 12 12 4.567E-02 13 12 1.068E-02 14 12 4.524E-Q3 

3 13 6.824E-Q3 4 13 5.304E-02 5 13 1.499E-01 6 13 8.717E-02 7 13 1.195E-Q2 

8 13 7.317E-02 9 13 1.239E-02 10 13 3.555E-02 11 13 4.996E-02 13 13 3.3G3E-Q2 

CROSS-SECTIONS FROM CARTWRIGHT 

3.5489 9. 11. 13. 15. 18. 22. 30. 
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5880. 

N2 1+ 2 3 36 


0 

0 3.382E-01 

1 

0 4.065E-01 

2 

0 1.975E-01 

3 

0 

5.014E-02 

4 

0 7.191E-03 

5 

0 5.871E-04 

6 

0 2.616E-05 

0 

1 3.248E-01 

1 

i 

jk 

2.310E-03 

2 

1 2.120E-01 

0 

yJ 

1 2.387E-01 

4 

1 1.318E-01 

5 

1 2.729E-02 

6 

1 

2.925E-03 

7 

1 1.613E-04 

0 

2 1 . 90DE-01 

1 

2 1.032E-01 

2 

2 1.132E-01 

3 

2 

3.868E-02 

4 

2 2.738E-01 

c; 

2 2.107E-01 

6 

2 6.148E-02 

7 

f 

2 8.462E-03 

8 

2 

5.675E-04 

9 

2 1.719E-05 

0 

3' 8.857E-02 

1 

3 1.782E-01 

2 

3 1.205E-O2 

3 

3 

1.623E-01 

4 

3 1.807E-03 

5 

3 1.808E-01 

6 

3 2.605E-01 

7 

3 1.065E-01 

0 

u 

0 

1.857E-02 

9 

3 1 . 495E-03 

10 

3 5.241E-05 

0 

4 3.649E-02 

4 

X 

4 1.450E-01 

2 

4 

7.724E-02 

3 

4 3.227E-02 

4 

4 1.139E-01 

5 

4 4.780E-02 

6 

4 8.305E-02 

7 

4 

2.706E-O1 

8 

4 1.561E-01 

9 

4 3.420E-02 

10 

4 3.274E-03 11 

4 1.318E-04 

0 

5 

1.299E-G2 

i 

5 8.647E-G2 

2 

5 1 . 275E-01 

3 

5 9.050E-03 

4 

5 8.823E-02 

5 

5 

4.262E-02 

6 

5 1.040E-01 

{ 

5 1.916E-02 

8 

5 2.438E-01 

9 

5 2.029E-01 

10 

5 

5.569E-02 11 

5 6.299E-03 

12 

5 2.890E-04 

0 

6 5.147E-03 

1 

fa 4.367E-02 

2 

6 

1.127E-01 

3 

6 6.910E-02 

4 

6 5.227E-03 

5 

6 1.057E-01 

6 

6 3.171E-03 

7 

6 

1.291E-01 

8 

6 2.766E-05 

9 

6 1.919E-01 

10 

6 2.402E-01 

11 

6 8.265E-02 12 

6 1.099E-02 13 

6 5.717E-04 

0 

7 1.851E-03 

1 

7 2.00QE-Q2 

2 

7 7.496E-02 

3 

7 

1.009E-01 

4 

7 1.798E-02 

5 

7 3.829E-02 

6 

7 8.078E-Q2 

7 

7 6.748E-03 

8 

7 

1.159E-01 

9 

7 1.694E-02 

10 

7 1.299E-01 

11 

7 2.630E-01 

12 

7 1.140E-01 

13 

7 

1.777E-02 

14 

7 1.044E-03 

4 

8 6.361E-02 

6 

8 6.967E-02 

7 

8 3.946E-02 

8 

8 

3.633E-02 

9 

8 7.862E-02 

10 

8 5.219E-02 

11 

S 7.206E-02 12 

8 2.688E-01 

13 

8 

1.480E-01 

14 

8 2.702E-02 

15 

8 1.735E-03 16 

8 3.48QE-05 

0 

9 2.348E-04 

1 

9 

3.5c?2!E-03 

o 

L. 

9 2.182E-02 

3 

9 6.406E-02 

4 

9 8.349E-02 

5 

9 2.454E-02 

6 

9 

1.2c9E-02 

7 

9 7.733E-02 

8 

9 8.360E-03 

& 

9 6.773E-02 10 

9 3.765E-02 

11 

9 

8.779E-02 12 

9 2.857E-02 

13 

9 2.575E-01 

14 

9 1.826E-01 15 

9 3.902E-02 

16 

9 

2.833E-03 17 

9 6.131E-05 

(i 

10 8.403E-05 

1 

10 1.463E-03 

2 10 1.053E-02 

3 

10 

3.917E-02 

4 10 7.511E-02 

5 10 5.820E-02 

6 10 2.460E-03 

7 10 3.833E-02 

8 10 

6.077E-02 

9 10 3.194E-04 

10 

10 8.370E-02 11 

10 9.012E-03 12 10 1.109E-01 

13 10 

4.687E-03 14 10 2.315E-01 

15 10 2.154E-01 

16 10 5.395E-02 17 10 4.480E-03 

18 10 

1.089E-04 

0 

11 3.G38E-Q5 

1 

11 5.9G7E-04 

2 11 4.885E-03 

3 11 2.187E-02 

4 11 

5.510E-02 

5 

11 7.056E-O2 

6 

11 2.810E-02 

7 11 2.738E-03 

8 11 5.721E-02 

9 11 

3.305E-Q2 10 

11 1.307E-O2 


11 7.397E-02 12 

11 2.617E-05 13 11 1.156E-01 

14 11 

7.733E-04 15 

11 1.945E-01 

16 11 2.443E-01 

17 11 7.185E-02 18 11 6.675E-03 

19 11 

1.658E-04 

0 12 1.114E-05 

1 

X 

12 2.3S0E-04 

£ 

12 2.212E-03 

3 12 1.151E-02 

4 12 3.567E-02 

5 

12 6.338E-02 


6 12 5.261E-02 7 12 6.400E-G3 8 12 1.852E-02 9 12 5.945E-02 10 12 9.576E-03 
11 12 3.527E-02 12 12 5.846E-Q2 13 12 9.342E-03 14 12 1.023E-01 15 12 1.33QE-G2 



ORIGINAL FAG- & 
OF POOR QOAtnt 


16 12 1.516E-01 17 12 2.672E-Q1 18 12 9.261E-02 19 12 9.615E-03 1 13 9.627E-D5 
CROSS-SECTIONS ASSUMED SAME AS B-X OF CARTWRIGHT 

1=1842 1,238 1.611 1.933 2.416 3,221 4.187 5.798 

0. 0.054E-16 0.225E-16 0.299E-1S 0.241E-16 0.156E-16 0.123E-16 C.076E-16 

9.G00E+04 

N2 A1A 2 4 24 


0 0 7.S27E-01 0 1 1.791E-01 0 2 3.059E-02 0 3 5.717E-03 0 4 5.717E-03 

0 5 1.303E-03 0 6 3.656E-04 0 7 1.238E-04 1 0 7.827E-01 1 1 1.791E-01 

1 2 3.059E-D2 1 3 5.717E-03 1 4 5.717E-63 1 5 1.3C3E-03 1 6 3.656E-Q4 

1 7 1.238E-04 2 0 2.095E-01 2 1 5.035E-01 2 2 2.184E-C1 2 3 5.205E-02 

2 4 5.205E-02 2 5 1.196E-C2 2 6 3.080E-03 2 7 9.274E-G4 2 8 3.263E-04 

2 9 3.263E-04 2 10 1.320E-04 3 0 7. 735E-Q3 3 1 3.024E-01 3 2 3.595E-0! 

3 3 2.312E-01 3 4 2.312E-01 3 5 7.099E-Q2 3 6 1.943E-02 3 7 5.626E-03 

3 8 1.826E-03 3 9 1.826E-03 3 10 6.737E-04 3 11 2.808E-04 3 12 1.305E-04 

4 0 7.735E-03 4 1 3.024E-01 4 2 3.595E-01 4 3 2.312E-01 4 4 2.312E-01 

4 5 7.099E-02 4 6 1.943E-02 4 7 5.626E-03 4 8 1.826E-03 4 9 1.826E-03 

4 10 6.737E-04 4 11 2.808E-04 4 12 1.305E-04 5 0 1.179E-04 5 1 1.479E-02 

5 2 3.693E-01 5 3 2.594E-01 5 4 2.594E-01 5 5 2.275E-01 5 6 8.641E-02 

5 7 2.778E-C2 5 8 9.G51E-03 5 9 9.051E-03 5 10 3.194E-03 5 11 1.24SE-03 

5 12 5.408E-04 5 13 2.581E-04 6 1 1.910E-04 6 2 2.198E-02 6 3 4.228E-01 

6 4 4.228E-01 6 5 1.870E-01 6 6 2.121E-01 6 ? 9.699E-02 6 8 3.623E-02 

6 9 3.623E-02 6 10 1.328E-02 6 11 5.125E-03 6 12 2.139E-03 6 13 9.724E-04 

6 14 2.558E-04 7 1 1.910E-04 7 2 2.138E-02 7 3 4.228E-01 7 4 4.228E-01 

7 5 1.370E-01 7 6 2.121E-01 7 7 9.699E-02 7 9 3.623E-02 7 9 3.623E-02 

7 10 1.328E-02 7 11 5.125E-03 7 12 2.139E-03 7 13 9.724E-04 7 14 2.55SE-04 

8 2 1.834E-04 8 3 2.866E-02 8 4 2.866E-02 8 5 4.674E-01 8 6 1.355E-01 

8 7 1.896E-C1 8 8 1.020E-01 8 9 1.020E-01 8 10 4.380E-02 8 11 1.903E-02 

8 12 7.629E-03 8 13 3.421E-93 8 14 8.450E-04 9 3 1.027E-04 9 4 1.027E-04 

9 5 3.385E-02 3 6 5.061E-C1 9 7 9.970E-02 9 8 1.642E-01 9 9 1.642E-01 

9 10 1.G16E-01 9 11 4 , 959E-G2 9 12 2.280E-02 9 13 1.Q58E-Q2 9 14 2.605E-03 

CROSS- SECT ICWS ASSUMED SAME AS B-X OF CARTWRIGHT 

2.3799 2.589 3.237 3.884 4.885 6.473 8.415 11.65 

0. 0.054E-16 0.225E-16 0.299E-16 0.241E-16 0.156E-16 CU29E-16 0.076E-16 

0.0 


N2 A1B 3 4 11 


0 0 2.005E-03 0 1 9.379E-01 0 2 2.005E-03 1 0 2.005E-03 1 1 9.979E-01 

1 2 2.005E-G3 2 0 9.942E-01 2 1 1.966E-Q3 2 2 S.942E-01 2 3 3.781E-03 

2 4 3.781E-03 3 0 3.652E-03 3 2 3.652E-03 3 3 3.307E-01 3 4 9.907E-01 

3 5 5.449E-Q3 3 6 1.042E-04 3 7 1.042E-04 4 0 3.652E-03 4 2 3.652E-03 

4 3 9.907E-01 4 4 9.907E-01 4 5 5.449E-03 4 6 1.042E-04 4 7 1.042E-04 

5 0 1.335E-04 5 2 1.335E-04 5 3 5.189E-03 5 4 5.183E-0:- 5 5 9.875E-01 

5 6 6.927E-03 5 7 6.927E-03 5 8 1.787E-04 6 3 2.431E-04 6 4 2.431E-04 

6 5 6.497E-03 6 6 9.848E-01 6 7 9.848E-01 6 8 8.129E-G3 6 9 2.877E-04 

7 3 2.431E-04 7 4 2.431E-04 7 5 6.497E-03 7 6 9.848E-01 7 7 3.848E-01 

7 3 8.129E-03 7 9 2.877E-04 8 5 3.90QE-94 8 6 7.497E-03 8 7 7.457E-D3 

S 8 9.826E-01 8 9 8.985E-03 9 6 5.732E-04 9 7 5.732E-04 9 8 8.135E-03 

CROSS-SECTION ASSUMED SAME AS 8-X OF CARTWRIGHT 

1.1956 1.301 1.626 1.951 2.439 3.252 4.228 5.854 

9. 0.054E-16 0.225E-16 0.299E-16 0.241E-16 0.156E-1 6 0.120E-16 G.G76E-16 

0 . 

NO 30.019 33630 

4. GOG 60.550 1903.855 13.970 -0.001 0.000 1.70460 1.780E-02 

2.000 43965.699 2371.300 14.480 -0.280 0.000 1,99520 1.640E-02 

4.000 45932.398 1037.680 7.603 0,097 0.009 1,12700 1.525E-02 
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2.000 52148.000 

2347.000 

0.000 

0.000 

0.000 

1.95500 O.OQGE+OO 
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0.000 
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0.000 

1.98630 1.820E-02 


N 4S 1.401E+01 5.249E+04 4.000E+00 1.500E+00 O.OOOE+OD 

0 3P 1.600E+01 5.249E+04 9.OQ0E+QO l.COOE+OO l.OOOE+OO 

CROSS-SECTIONS ASSUMED AS SAME FOR NO 1-2 OF IMAMI ET AL 

6.508 6.775 7.875 10.15 13.54 IS. 09 22.58 28.24 

O.OOOE 00 3.370E-18 1.540E-17 2.450E-17 2.980E-17 3.030E-17 2.870E-17 2.7Q0E-17 

CROSS-SECTIONS ASSUMED AS SAME FOR NO 1-2 OF IMAMI ET AL 

1.058 1.1013 1.280 1.650 2.201 2.941 3.671' 4.592 

O.OOOE 00 3.370E-18 1.540E-17 2.450E-17 2.380E-17 3.030E-1? 2.870E-17 2.70GE-17 

CROSS-SECTIONS ASSUMED AS SAME FOR NO 1-2 OF IMMI ET AL 

0.8132 0.8465 0.9840 1.269 1.691 2.261 2.822 3.529 

O.OOOE 00 3.370E-18 1.540E-17 2.450E-17 2.980E-17 3.030E-17 2.870E-17 2.700E-17 

NO 8 1 3 46 
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15 

8 5.700E-02 

16 

8 3.7C5E-02 

'« / 

6 

2.140E-02 18 

8 1.145E-02 

3 3 1.G0CE-04 

4 

5 6.0Q0E-03 

c 

9 7.980E-02 

6 

9 

2.670E-01 7 

9 7.770E-02 

B 9 1.008E-01 

Q 

9 8.250E-03 

10 

9 9.250E-02 

11 

Q 

J 

5.585E-02 12 

3 2.490E-02 

13 9 1.650E-02 

14 

9 5.265E-02 

1 5 

9 6.860E-02 

16 

Ci 

6.170E-02 17 

9 4.505E-G2 

18 3 2.87GE-02 

4 10 3.500E-G4 

c. 

10 1.G70E-02 

6 

10 

1.107E-0I 7 

10 2.728E-C1 

9 1C 3.205E-02 

9 10 1.242E-01 

10 

10 2.500E-04 

4 •’ 

J..L 

10 

6.780E-B2 12 

10 7 . 205E-02 

13 10 1.425E-02 

14 10 3.500E-03 

15 

10 3.275E-02 

16 

in 

5.76QE-G2 17 

10 6.145E-02 

18 10 5.065E-02 

5 11 6.500E-04 

6 

11 1. 7656-02 

7 

\ a 

i.x 

1.432E-01 8 11 2.606E-01 

3 11 6.450E-93 10 

11 1.237E-01 

i x 

11 9. 7506-03 

12 11 

3.975E-02 13 

11 7.685E-G2 

14 11 3.125E-C2 

15 11 7.500E-04 16 

11 1.575E-C2 

C 

V 

12 

1.250E-03 7 

12 2.700E-02 

8 12 1.762E-01 

3 12 2.346E-01 

10 

12 5. 5006-04 

* 

12 

1 .1848-01 12 

12 2.390E-Q2 

13 12 1.655E-02 

14 

12 6.9S5E-02 

15 

12 4.710E-G2 

16 12 

6.700E-03 1? 

12 4.600E-93 

18 12 2.705E-Q2 

7 13 2.150E-03 

0 

13 3.910E-02 

0 

13 

2.066E-01 ID 

13 1.985E-01 

11 13 6.075E-92 

12 

13 3.515E-02 

iz 

13 5.275E-02 

14 

* X 

3.200E-03 15 

13 5.435E-02 

16 13 5.735E-02 

17 

13 1.830E-02 


13 7. 5006-04 

7 

14 

1.000E-04 8 

14 3.550E-03 

9 14 5.365E-02 

10 

14 2.326E-01 

1 1 
A X 

14 1.569E-01 

12 

14 

3. 1706-02 13 

14 6.56GE-02 

14 14 7.175E-02 

15 

14 9.500E-04 

1 £ 

14 3.565E-02 

1 7 

14 

5.970E-92 18 

14 3.145E-Q2 

8 15 1.500E-04 

9 

15 5 . 500E-03 10 

15 7 . 110E-02 

* A 

15 

2.520E-01 12 

15 1.146E-01 

13 15 5.755E-02 

14 15 3.885E-02 

15 

15 8.250E-02 

It 

15 

3.40QE-03 17 

15 1 . 815E-G2 

13 15 5.415E-02 

0 

16 2.50GE-04 

10 

16 8.250E-G3 

1 1 

16 9.099E-02 12 

16 2.647E-01 

13 16 7.545E-02 

14 

16 8.245E-02 

n, 

16 1 .700E-02 

j .6 

16 

8.330E-02 17 

16 2.195E-02 

18 16 5.350E-03 

10 

17 3.5Q0E-G4 

1 1 

17 1.18QE-02 

12 

17 1.128E-01 13 

17 2.693E-01 

14 17 4.340E-02 

15 

17 1.020E-91 

1 6 

17 4.200E-03 

■i 7 

1 ? 

7.505E-02 IS 

17 3.715E-02 

11 18 6.090E-04 

12 18 1.635E-02 

Ic 

18 1.353E-01 

f- 0 : 

■;C;C. 

- SECTIONS ASS' 

.tiED 84ME AS NO 1-2 OF IHAHI i 

:t al 



* i . 

L46 

1.176 

1.367 1, 

.763 2.350 

3.141 3.921 

4.904 

0.1 

1901 

0 CO 3.370E-18 1.540E-17 2, 

.450E-17 2.980E-; 

!? : 

3.03GE-1? 2.8: 

r l) t * 

-1? 2.700E-1? 

« 1 

950E405 







rNI 

AB 

z 

3 30 






1 

0 

2 . 24 BE -04 1 

1 2.248E-04 

1 2 1.833E-01 

i 

3 6.249E-01 


4 6.249E-01 


IT 

1.442E-01 1 

6 3.433E-02 

1 7 8:8216-03 


8 8.621E-C3 

1 

9 2.609E-O3 

i 

lu 

S.926E-04 1 

11 3.496E-04 

1 12 3.436E-04 

i 

A 

13 1.542E-04 

2 

0 8.9096-01 

2 


S. 909E-02 2 

2 S.252E-02 

2 3 1.300E-02 

2 

4 1.300E-02 


5 2.521E-03 


f, 

S.437E-04 2 

7 2.055E-04 

2 8 2.055E-04 


0 8.909E-01 

Z 

1 8.909E-01 

j 


9.252E-02 3 

3 1.300E-02 

3 4 1.300E-G2 

3 

5 2.521E-C3 

o 

6 6. 4276-0 4 

0 

7 

2.055E-04 3 

8 2.C55E-G4 

4 0 1.088E-01 

4 

1 1.088E-01 

4 

2 7.239E-02 

4 

r*. 

1,3298-01 4 

4 1 . 339E-G1 

4 5 2.530E-02 

4 

6 5.644E-03 

j 

7 i 

i X 1 vv V - v w 


94 



' ’ v ': , 

poQR Q.^ 1 ' 


: ZA 



4 8 1.530E-03 4 9 4.975E-04 4 10 1.894E-04 5 0 2.248E-04 5 1 2.248E-Q4 

5 2 1.833E-Q1 5 3 6.249E-01 5 4 6.249E-01 5 5 1.442E-01 5 6 3.433E-C2 

5 7 S.821E-03 5 8 8.821E-03 5 9 2.609E-03 5 10 3.926E-Q4 5 11 3.496E-G4 

5 12 3.4S6E-Q4 5 13 1.542E-04 6 0 2.248E-04 £ 1 2.243E-04 £ 2 1.833E-01 

£ 3 6.249E-01 £ 4 6.249E-C1 £ 5 1.442E-01 £ 6 3.433E-02 £ 7 8.S21E-03 

6 3 8.821E-Q3 £ 9 2.609E-83 £ 10 8.928E-04 £ 11 3.496E-04 £ 12 3.496E-Q4 

6 13 1.542E-04 7 2 2.534E-04 7 3 2.281E-01 7 4 2.281E-01 7 5 5.836E-G1 

7 £ 1.320E-01 7 7 3.861E-02 7 8 3.881E-02 7 9 1.127E-02 7 10 3.657E-03 

7 11 1.335E-03 7 12 1.335E-03 7 13 5.469E-04 7 14 2.487E-04 8 2 2.534E-04 

8 3 2.281E-01 8 4 2.281E-Q1 8 5 5.836E-01 8 £ 1.320E-C1 8 7 3.861E-02 

8 9 3.861E-92 8 9 1.127E-02 8 10 3.657E-03 8 11 1.335E-03 8 12 1.335E-Q3 

8 13 5.469E-04 8 14 2.4S7E-04 9 5 2.428E-01 9 6 5.930E-01 9 7 1.051E-01 

9 8 1.051E-01 9 9 3.865E-02 9 10 1.255E-02 9 11 4.4£2E-03 9 12 4.462E-03 

9 13 1.748E-03 9 14 7.549E-04 10 5 1.531E-03 10 £ 2.259E-01 10 7 6.444E-01 

10 8 6.444E-01 10 9 7.020E-02 10 10 3.617E-02 10 11 1.266E-02 10 12 1.266E-02 

10 13 4.907E-03 10 14 2.062E-03 11 6 8.358E-03 11 7 1.780E-01 11 8 1.7B0E-01 

11 9 7.241E-01 11 10 3.468E-02 11 11 3.320E-02 11 12 3.320E-02 11 13 1.185E-02 

11 14 4.989E-03 12 £ 8.358E-0S 12 7 1.780E-01 12 8 1.780E-01 12 9 7.241E-01 

12 10 3.468E-Q2 12 11 3.320E-02 12 12 3.320E-02 12 13 1.185E-Q2 12 14 4.989E-03 

12 7 2.205E-02 13 8 2.205E-02 13 9 1.088E-01 13 10 8.092E-01 13 11 7.994E-03 

13 12 7.994E-03 13 13 3.150E-02 13 14 1.046E-02 14 7 1.136E-03 14 8 1.136E-03 

14 9 3.815E-02 14 10 4.041E-02 14 11 8.689E-01. 14 12 8.S89E-01 14 13 4.943E-04 

CROSS-SECTIONS ASSUMED SAME AS FOR NO 1-2 OF IMAM! ET AL 

2.046 2.153 2.502 3.226 4.301 5.749 7.176 8.375 

O.CiOOE 00 3.370E-13 1.54QE-1? 2.450E-1? 2.380E-1? 3.030E-17 2.370E-17 2.700E-17 

0. 
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NITROGEN 

4.0 

14.007 

0 . 

SECTION 4. RADIATION DATA 

117345. 179 35 1 

10. 19228. 6. 28840. 12. 

83337. 

6. 

86193. 

2. 


93582. 20. 

94839. 12. 

95511. 

9. 

0. 

5. 


15316. 1. 

32687. 5. 

47168. 

15. 

1.670E-05 

92250. 

0.330 

4.0 

6.0 

88110.0 2.200E+08 

1134.93 2P3 4S 2P4 4P 1. 5. 

1.670E-05 

0.330 

4.0 

4.0 

88153.0 2.500E+08 

1134.42 2P3 4S 2P4 4P 1. 5. 

1.670E-05 

0.330 

4.0 

2.0 

88173.0 2.500E+08 

1134.17 2P3 4S 2P4 4P 1. 5. 

6.65QE-04 

0.330 

4.0 

6.0 

83366.0 5.500E+08 

1199.55 2P3 4S 3S 

4P 1. 4. 

7.410E-04 

0.330 

4.0 

4.0 

83319.0 5.300E+08 

1200.22 2P3 48 38 

4P 1. 4. 

6.65GE-04 

0.330 

4.0 

2.0 

83286.0 5.500E+08 

1200.71 2P3 4S 38 

4P i. 4. 

1.210E-03 

0.330 

6.0 

4.0 

86221.0 5.300E+08 

1492,62 2P3 2D 3S 

2P 2. 5. 

1.210E-03 

0.330 

4.0 

2.0 

86138.0 5.000E+08 

1494.67 2P3 2D 3S 

2? 2. 5. 

1.210E-03 

0.330 

4.0 

4.0 

86221.0 5.800E+07 

1492.67 2P3 2D 3S 

2P 2. 5. 

2.230E-03 

0.330 

4.0 

4.0 

86221.0 1.800E+08 

1742.73 2P3 2P 3S 

2P 3. 5. 

2.230E-03 

0.330 

2.0 

2,0 

86138.0 1.300E+08 

1745.25 2P3 2P 3S 

2P 3. 5. 

2.230E-03 

0.330 

4.0 

2.0 

86138.0 6.500E+07 

1745.26 2P3 2P 3S 

2P 3. 5. 

2.230E-03 

0.330 

2.0 

4.0 

86221.0 3.500E+07 

1742.72 2P3 2P 38 

2P 3. 5. 

O.QQOE+GO 

0.000 

6.0 

6.0 

99663.0 4.300E+08 

1243.17 2P3 2D 3S' 

2D 2. 7. 

O.OOOE+OO 

0.000 

4.0 

4.0 

99663.0 4.300E+08 

1243.30 2P3 2D 38' 

2D 2. 7. 

8.400E-04 

0.330 

6.0 

4.0 

39663.0 4.500E+07 

1243.17 2P3 2D 3S' 

2D 2. 7. 

O.OOOE+OO 

0.000 

4.0 

6.0 

99663.0 3.000E+07 

1243.31 2P3 2D 3S' 

2D 2. 7. 

1.Q60E-03 

0.339 

6.0 

10. 0 

99663.0 5.200E+07 

1411.94 2P3 2P 38' 

2D 3. 7. 

1.15CE-01 

0.330 

6.0 

4.0 

96752.0 2.100E+06 

11564.80 2P4 4P 3P 

48 5. 6. 

1.150E-Q1 

0.330 

4.0 

4.0 

96752.0 1.3O0E+O6 

11628.00 2P4 4P 3P 

4S 5. 6. 

1.150E-Q1 

0.330 

2.0 

4.0 

96752.0 6.600E+05 

11656.00 2P4 4P 3P 

4S 5. 6. 

3.430E-03 

0.330 

6.0 

8.0 

104883.0 1.10QE+Q8 

1167.45 2P3 2D 3D 

2F 2.10. 

3.430E-03 

0.330 

4.0 

6.0 

104811.0 1.300E+08 

1168.54 2P3 2D 3D 

2F 2.10. 

3.430E-03 

0.330 

6.0 

6.0 

104811.0 9.500E+06 

1163.42 2P3 2D 3D 

2F 2.10. 

2.600E-01 

0.330 

6.0 

6.0 

105144.0 4.300E+07 

1163.88 2P3 2D 3D 

2D 2.10, 

3.670E-02 

0.330 

4.0 

4.0 

105121.0 4.30QE+97 

1164.31 2P3 2D 3D 

2D 2.10., 

3.670E-03 

0.330 

6.0 

4.0 

105121.0 4.800E+06 

1164.31 2P3 2D 3D 

2D 2.10. 

2.910E-01 

0.330 

4.0 

6.0 

105144.0 3.200E+C6 

1163.37 2P3 2D 3D 

2D 2.10. 

4.100E-03 

0.330 

4.0 

4.0 

104615.0 1.100E+03 

1319.72 2P3 2P 3D 

2P 3.10. 

4.1O0E-O3 

0.330 

2.0 

2.0 

104655.0 8.500E+07 

1319.04 2P3 2P 3D 

2P 3.10. 

4.100E-03 

0.330 

4.0 

2.0 

104655.0 4.200E+07 

1319.04 2P3 2P 3D 

2P 3.10. 

O.OOOE+OO 

0.000 

2.0 

4.0 

104615.0 2.200E+07 

1319.72 2P3 2P 30 

2P 3.10. 

4.650E-Q3 

0.330 

4.0 

6.0 

105144.0 1.300E+08 

1310.54 2P3 2P 3D 

2D 3.10. 

4.650E-03 

0.330 

2.0 

4.0 

105121.0 1.1QGE+08 

1310 97 2P3 2P 3D 

2D 3.10. 

4.650E-03 

0.330 

4.0 

4.0 

105121.0 2.300E+07 

1310.97 2P3 2P 3D 

2D 3.10. 

1.290E-01 

0.330 

6.0 

4.0 

104227.0 9.500E+07 

1176.40 2P3 2D 4S 

2P 2. 8. 

1.290E-01 

0.330 

4.0 

2.0 

104142.0 1.30QE+08 

1177.70 2P3 2D 4S 

2P 2. 8. 

1.290E-Q1 

0.330 

4.0 

4.0 

104227.0 1.100E+07 

1176.60 2P3 2D 48 

2P 2. 8. 

6.390E-03 

0.330 

4.0 

4.0 

104227.0 1.500E+07 

1326.63 2P3 2P 4S 

2P 3. 8. 

6.390E-03 

0.330 

2.0 

2.0 

104142.0 1.700E+07 

1327.96 2P3 2P 4S 

2P 3. 8. 

6.390E-03 

9.330 

4.0 

2.0 

104142.0 8.500E+06 

1327.96 2P3 2P 48 

2P'3. 8. 

6.390E-03 

0.330 

2.0 

4.0 

104227.0 3.000E+06 

1326.63 2P3 2P 4S 

2P 3. 3. 

1.150E-0I 

0.330 

6.0 

8.0 

106871.0 2.540E+05 

5328.70 2P4 4P 4P 

4D 5.11. 

1.150E-01 

0.330 

4.0 

6.0 

106816.0 1.890E+05 

5356.77 2P4 4P 4P 

4D 5.11, 

1.150E-C1 

0.330 

2.0 

4.0 

106780.0 1 . 070E+05 

5372.66 2P4 4P 4P 

4D 5.11. 

1.150E-01 

0.330 

4.0 

4.0 

106780.0 1.180E+05 

5367.10 2P4 4P 4P 

40 5.11. 

O.OOOE+OO 

0.000 

2.0 

2.0 

106761.0 2.100E+05 

5378.30 2P4 4P 4P 

4D 5.11. 

1.200E-01 

0.330 

6.0 

6.0 

107039.0 2.820E+05 

5281.18 2P4 4p 4P 

4P 5.11. 

PRECEDING PAGE PLANE K 

Q-'-p r-'T t 

:ed 


PASE ^i^JrittliTiONALLX BLARX 



ORIGINAL PAQ£ & 
OF POOR QUALITY 


O.OOOE+OO 

0.000 

6.0 

4.0 

106998.0 1.670E+05 

5292.30 2P4 4P 4P 

4P 5.11. 

O.QQOE+OO 

0.000 

4.0 

2.0 

106983.0 2.730E+05 

5309.20 2P4 4P 4P 

4P 5.11. 

0.000E+00 

9.000 

4.0 

6.0 

107039.0 1.130E+C5 

5293.50 2P4 4P 4P 

4P 5.11. 

e.ocoE+oo 

0.000 

2.0 

4.0 

106998.0 1.370E+05 

5310,60 2P4 

4P 4P 

4P 5.11. 

0.000E+00 

0.000 

6.0 

4.0 

107447.0 2.090E+05 

5170,00 2P4 4P 4P 

4S 5.11. 

O.OOOE+OO 

0.000 

4.0 

4.0 

107447.0 1 . 440E+05 

5181.50 2P4 

4P 4 D 

48 5.11. 

4.410E-03 

0.330 

10.0 

6.0 

110082.0 3.300E+07 

1100.70 2P2 

2D 58 

2 D 2.12. 

2 . 12CE-Q2 

0.330 

2.0 

2.0 

110029.0 2.200E+06 

1231.70 2P3 2P 5S 

2P 3.12. 

2.I20E-02 

0.330 

4.0 

2.0 

110029.0 1.100E+06 

1231.70 2P3 

2P 58 

2P 3,12. 

4.510E-02 

0.330 

6.0 

8.0 

94883.0 1.919E+07 

8680.27 38 

4P 3P 

4D 4. 6. 

4.510E-02 

0 000 
i‘ a vv'V 

4.0 

6.0 

94832.0 1.330E+07 

8683.40 38 

4P 3P 

‘4D 4. 6. 

4.519E-92 

0.320 

2.0 

4.0 

94795.0 7.900E+06 

8686,16 38 

4P 3P 

4D 4, 6. 

4.510E-C2 

0.330 

6.0 

6.0 

94332.0 5.400E+06 

8718.84 38 

4P 3 d 

4D 4. 6. 

4.510E-02 

0.230 

4.0 

4.0 

94795.0 1.Q10E+07 

8711.71 38 

4P 3P 

40 4. 6. 

4.5I0E-02 

0.330 

2.0 

2.0 

94772.0 1.710E+07 

8703.26 38 

4P 2P 

4D 4. 6. 

4.510E-02 

0.330 

6.0 

4.0 

94795,0 7.900E+05 

8747.36 38 

4P 3P 

4D 4. 6. 

4.510E-02 

0,330 

4.0 

2.0 

94772.0 3.000E+05 

8728.91 38 

4P 3P 

4D 4. 6. 

4.460E-G2 

0.330 

6.0 

6.0 

95533.0 1.600E+07 

S216.32 38 

4P 2P 

4P 4. 6. 

4.46QE-02 

0.330 

4.0 

4.0 

95495.0 3.630E+06 

8210.71 38 

4P 3P 

4P 4. 6. 

4.46QE-G2 

0.330 

2.0 

2.0 

95477.0 3.64CE+06 

8200.36 38 

4P 3? 

4P 4. 6. 

0.090E+00 

0.000 

6.0 

4.0 

95495.0 1.020E+07 

8242.37 38 

4P 3P 

4P 4. 6. 

4.460E-Q2 

0.330 

4.0 

2.0 

95477.0 2.020 E+G 7 

8223.12 38 

4P 3P 

4P 4. 6. 

4. 4 60 E -02 

0.330 

4.0 

6.0 

95533.0 6.300E+06 

8184.85 38 

4P 3P 

4P 4. 6. 

4.460E-92 

0.330 

2.0 

4.0 

95495.0 9.200E+06 

8188.01 28 

4P 3P 

4P 4. 6 . 

4 . 750E-02 

0 . 330 

6.0 

4,0 

96752.0 1 . 610E+07 

7468.31 38 

4F 3P 

48 4. 6 . 

d ^ftC-p-5 

» * < 'J W W u «_ 

0 . 230 

4.0 

4.0 

96752.0 1.O6OE+07 

7442.30 38 

4P 3P 

4S 4. 6. 

4.750E-02 

fi OOfi 

V « 

2.0 

4.0 

96752.0 5.200E+06 

7423.64 38 

4P 3P 

48 4. 6. 

7.460E-02 

0,330 

4.0 

6.0 

96864.0 2.180E+07 

9392.79 28 

2P 3P 

2D 5. 7. 

7.460E-02 

ft ' 000 

2.0 

4.0 

96788.0 1.830E+07 

9386.81 38 

2P 3P 

2D 5. 7. 

7.460E-92 

0.330 

4.0 

4,0 

96783.0 3.340E+06 

9460.68 28 

2P 3P 

2D 5, 7, 

7.460E-02 

0 . 230 

4.0 

4.0 

97806.0 2.380E+07 

8629.24 38 

2P 3P 

2P 5. 7. 

7.4S0E-02 

0.330 

2.0 

2.0 

37770.0 1.900E+07 

8590.01 28 

2P 3P 

2P 5. 7. 

7.460E-S2 

0.230 

4.0 

2.0 

97779.0 9.300E+06 

8-655.87 38 

2P 3P 

2P 5. 7. 

7.460E-02 

0.330 

2.0 

4.0 

97806.0 4.580E+06 

8567.74 38 

2P 3P 

'ID C 7 
£-> wa r • 

0.000E+00 

ft > rifift 

4.0 

6.0 

110546,0 4.000E+06 

4109.96 38 

OD JO' 

2D 5.14. 

0.000E+00 

0.0Q0 

2.Q 

4.0 

110522.0 3.400E+06 

4929.55 38 

2P 3P / 

2D 5.14. 

O.OOOE+OO 

0.000 

4.0 

4.0 

110522.0 6.800E+05 

4113.97 28 

2? 3P' 

2D 5.14. 

1.670E-Q1 

0.330 

6.0 

S.O 

110715.0 2.690E+37 

9045.88 28' 

2D 3P' 

2F 7.14, 

1.670E-01 

0.330 

4.0 

6.0 

110711.0 2.580E+07 

9049.89 38" 

2D 3P' 

?F 7.14. 

1.670E-M 

0.330 

6.0 

6.0 

110711.0 1.800E+06 

9049,47 38 •' 

2D 3P' 

2F 7.14. 

7.330E-02 

0.330 

6.0 

8.0 

106871.0 2.00GE+06 

4253.28 38 

4p 4p 

4D 4,11. 

7.339E-02 

0.330 

4.0 

6.0 

106816.0 1.400E+06 

4254.70 38 

io 4p 

4D 4,11. 

7. 330 E -02 

0.330 

2.0 

4.0 

106780.0 7.900E+05 

4254,70 38 

4P 4P 

4D 4.11. 

7.680E-02 

0.330 

6.G 

6.0 

107039.0 5.I0OE+O6 

4223.04 38 

4P 4P 

4 C 4.11, 

7. 630 E -02 

0.330 

4.0 

4,0 

106998.0 9.800E+05 

4222.12 38 

dp 4P 

4P 4.11. 

7.629E-02 

0.320 

2,0 

2.0 

106983.0 1.200E+06 

4218.87 28 

4p 40 

4P 4.11. 

7.6S0E-02 

0 .320 

6.0 

4.0 

106998.0 3.300E+06 

4230.35 38 

4P 4P 

4= 4.11. 

7.63GE-02 

0.330 

4.0 

2.0 

106383.0 6.100E+06 

4224.74 32 

4P 4P 

4F 4,11. 

7.680E-02 

0.330 

4.0 

6.0 

107039.0 2.200E+06 

4214.73 28 

4P 4P 

4P 4.11, 

7.68Q£-ii2 

0.330 

2.0 

4.0 

106998.0 3.190E+06 

4215.92 38 

4 1 - 4^ 

4P 4.11. 

S.270E-02 

0 . 330 

6.0 

4.0 

107447.0 1.300E+06 

4151.46 28 

4p 4p 

48 4.11. 

3.270E-02 

0.330 

4.0 

4.0 

107447. G 7.803E+05 

4143.42 38 

4P dp 

48 4.H. 

S.273E-02 

9 . 32l> 

r i '■ 

u $ >- 

4.0 

107447.0 3.300E+05 

413?.63 38 

4P 4P 

4S 4.11. 

I.060E-01 

p qqn 

w « jOv 

4.0 

2.0 

106479.0 1.590E A 0€ 

400=: t no oc 

oc dp 

28 5.11. 

1.060E-01 

0.330 

7 A 

U t V 

2.0 

106473.0 7.590E+05 

4914.90 25 

2P 4P 

pc- " * 1 

L v v t i. 1 a 
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ORIGINAL 

OF. POOR QUALfiti 


1.670E-01 0.330 2.0 4.0 104615.0 2.570E+07 9060.72 3P 2S 30 2P 7.10. 


1.670E-01 0.330 2.0 2.0 104655.0 

2.510E— 01 0.330 8.0 10.0 104767.0 

O.OOOE+OO 0.000 6.0 8.0 104718.0 

O.OOOE+OO 0.000 4.0 6.0 104684.0 

O.OOOE+OO 0.000 2.0 4.0 104665.0 

O.OOOE+OO 0.000 8.0 8.0 104718.0 

O.OOOE+OO 0.000 6.0 6.0 104684.0 

G.QC0E+00 0.000 4.0 4.0 104665.0 

1.460E-01 0.330 8.0 8.0 105020.0 

O.OOOE+OO 0.000 6.0 6.0 105011.0 

O.OOOE+Q9 0.000 4.0 4.0 104998.0 

0.000E+00 0.000 2.0 2.0 104987.0 

O.OOOE+OO 0.000 8.0 6.0 105011.0 

1.460E-01 0.330 6.0 4.0 104998.0 

O.OOOE+OO 0.000 4.0 2.0 104987,0 

O.OOOE+OO 0.000 6.0 8.9 105020.0 

O.OOOE+OO 0.000 4.0 6.0 105011.0 

O.OOOE+OO 0.000 2.0 4.0 104998. C 

O.OOOE+OO 0.000 6.0 6.0 104825.0 

O.OOOE+OO 0.000 4.0 4.0 104860.0 

O.OOOE+OO 0.000 2.0 2.0 104886.0 

0.0C0E+QQ 0.000 6.0 4.0 104860,0 

O.OOOE+OO 0.000 4.0 2.0 104886.0 

O.OOOE+OO 0.000 4.0 6.0 104825.0 

2.700E-01 0.330 2.0 4.0 104860.0 

O.OOOE+OO 0.000 6.0 8.0 1Q5020.0 

O.OOOE+OO 0.000 4.0 6.0 105011.0 

O.OOOE+OO 0.000 2.0 4.0 104998.0 

1.670E-0I 0.330 4.0 4.0 104998.0 

1.670E-01 0.330 2.0 2.0 104987.0 

O.OOOE+OO 0.000 6.0 4.0 104998.0 

O.OOOE+OO 0.000 4.0 2.0 104937.0 

3. 880 E -01 0.330 4.0 6.0 104825.0 

3.580E-01 0.330 4.0 4.0 104869.0 

3.580E-01 0.330 4.0 2.0 104886.0 

4.91DE+90 0.330 6.G 8.0 104883.0 

3.880E-01 0.330 4.0 6.0 104811.0 

4.910E+00 0.330 6.0 6.0 104811.0 

O.OOOE+OO 0.000 4.0 2.0 120572,0 

o.oeoE+eo o.ooo 2.0 2.0 120572.0 

O.OOOE+OO O.OOO 8.0 10.0 120149.0 

O.OOOE+OO 0.000 6.0 8.0 120150.0 

O.OOOE+OO 0.000 8.0 8.0 120150.0 

O.OOOE+OO 0.000 8.0 6.0 103737.0 

O.OOOE+OO 0.000 6.0 4.0 103668.0 

O.OOOE+OO 0.000 4.0 2.0 103618.0 

O.OOOE+OO 9.000 6.0 6.0 103737.0 

O.OOOE+OO 0.000 4.0 4.0 103668.0 

O.OOOE+OO 0.000 2.0 2.0 103618.0 

3.580E-01 0.330 6.0 6.0 103737.0 

3.580E-01 0.330 4.0 4.0 103668.0 

3.580E-01 0.330 2.0 2.0 103618.0 

3.580E-01 0.330 6,0 4.0 103668.0 

3.58CE-91 0.330 4.0 2.0 103618.0 


2.550E+07 9028.92 3P 2S 3D 2*7.10. 

3.740E+07 10114.60 2P 4D 3D 4* 6, 9. 

3.210E+07 10112.50 3P 4D 3D 4F 6. 9. 

2.810E+G7 10108.90 3P 4D 3D 4F 6. 9. 

2.620E+07 10105.10 3P 4D 3D 4F 6. 9. 

5.230E+06 10164.80 3P 4D 3D 4* 6. 9. 

8.980E+06 10147.30 3P 4D 3D 4F 6. 9. 

1.040E+07 10128.30 2P 4D 3D 4F 6. 9. 

1.01QE+0? 9863.33 3P 4D 3D 4D 6. 9. 

5.42QE+G6 9822.75 3P 4D 3D 4D 6. 9. 

3.460E+06 9798.57 3P 4D 3D 4D 6. 9. 

3.100E+06 9788.30 3P 4D 3D 4D 6. 9. 

2.220E+06 9872.16 3P 4D 3D 4D 6. 9. 

4.610E+06 9834.62 3P 4D 3D 4D 6. 9. 

4.150E+06 9810.02 3P 4D 3D 4D 6. 9. 

1.180E+06 9814,03 3P 4D 3D 4D 6. 9. 

1.440E+06 9786.79 3P 4D 3D 4D 6. 9. 

1.770E+06 9776.90 3P 4D 3D 4D 6. 9. 

8.6S0E+06 10757.90 3P 4P 3D 4P 6. 9. 

1.690E+06 10675.00 3P 4P 3D 4P 6. 9. 

2.150E+06 10623.20 3P 4P 3D 4P 6. 9. 

5.640E+06 10718.00 3P 4P 3D 4P 6. 9. 

1.070E+0? 10644.00 3P 4P 3D 4P 6. 9. 

3.760E+06 10713.60 3P 4P 3D 4P 6. 9. 

5.320E+06 10653,00 3P 4P 3D 4P 6. 9. 

2.420E+07 10539,60 3P 4P 3D 4D 6. 9. 

1.320E+07 10507.00 3P 4P 3D 4D 6. 9. 

6.520E+06 10500.30 3P 4P 3D 4D 6. 9. 

1.620E+07 10520.60 3P 4P 3D 4D 6. 9. 

1.740E+07 10513,40 3P 4P 3D 4D 6. 9. 

3.690E+06 10563.30 3P 4P 3D 4D 6. 9. 

4.050E+06 10533.30 3? 4P 3D 4D 6. 9. 

1.230E+07 12384.00 3P 4$ 3D 4P 6. 9. 

1.240E+07 12330.00 3P 4S 3D 4P 6. 9. 

1.250E+07 12291.00 3P 48 3D 4P 6. 9. 

2.170E+07 12467.80 3P 2D 3D 2F 7.10, 

2.020E+S7 12461.20 3P 2D 3D 2F 7.10. . 

1.41QE+06 12582.30 3P 2D 3D 2F 7.10. 

1.020E+06 4391.30 3P 2P 3D' 2S 7.22. 

5.200E+05 4384, *0 3P 2P 3D 7 28 7.22. 

3.370E+07 10597.00 3P' 2F 3D' 2G14.22. 
3.260E+07 10591.00 3P' 2* 3D' 2G14.22. 
1.21CE+06 10596.00 3P' 2F 3D' 2814.22. 
1.170E+07 11291.70 3P 4D 4S 4P 6. 8. 

9.200E+06 11313.90 3P 4D 48 4P 6. 8. 

7.260E+06 11323.20 3P 4D 4S 4P 6. 8. 

2.700E+06 11227.10 3P 4D 4S 4P 6. 8. 

4.750E+07 11266.20 3P 4D 4S 4P 6. 8. 

7.310E+06 11294.20 3P 4D 48 4P 6. 8. 

5.400E+06 12186,90 3P 4P 48 4° 6. 8. 

1.010E+06 12232.90 3P 4P 4S 4P 6. 8. 

1.250E+06 12280.09 3P 4P 4S 4P 6. 8. 

3.360E+06 12288.00 3P 4P 48 4P 6. 3. 

6.200E+06 12307.00 3P 4P 4S 4P 6, 8. 
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3.00Q6+0C 


0 , 300E+90 




OF 

S> C\ 

ii • 




0.000 

4.0 

6.0 

103737.0 

2.3306+06 

12128.60 3P 

4P 48 

4P 6. 8 

9.330 

2.0 

4.0 

103668.0 

3.1806+06 

12203.40 3P 

4P 48 

4P 6. 8 

0 . 000 

8.0 

6.0 

103928.0 

3.110E+06 

6644.96 3P 

4D 58 

4- 6.12 

0.000 

6.0 

4.0 

109858.0 2. 4406106 

6653.46 3P 

4D 58 

4° 6.17 

0.090 

4.0 

2.0 

109814.0 

1.9306+06 

6656.51 ?P 

4D 58 

4P 6.12 

9.000 

4.0 

4.0 

109858.0 1.250E+36 

6636.94 3P 

4D 5S 

4F 6.12 

0 . 000 

? 0 

2.0 

109814.0 

1.340E+06 

6646.51 3P 

4D 58 

4* 6.12 

0 . ODD 

fa.C 

6.0 

109928.0 1,4906+06 

6945.22 3P 

4P 5S 

4P 6.12 

0.000 

6.0 

4.0 

109858.0 

9.400E+05 

6979.10 3P 

4p 58 

4p 6.12 

0.000 

4.0 

2.0 

109814.0 

1.7406+06 

6981.80 3P 

4P 5b 

4P 6.12 

0,000 

4,0 

6.0 

109928.0 

6.4006+05 

6326.90 3P 

4P 58 

4P 6.12 

9.090 

2.0 

4.0 

109858.0 8.8006+05 

6951.70 3P 

4P 58 

4P 6.12 

0.000 

2.0 

4.0 

112801.0 

2.3006+06 

5201.80 3P 

28 5D 

2D 7.16 

0.000 

2.0 

2.0 

112816.0 

2. 3006+06 

5197.80 3P 

2S 5D 

2D 7.16 

0.000 

6,0 

6.0 

112683.0 

S.400E+05 

5829.53 3P 

4P 68 

4P 6.16 

0 ,000 

4.0 

4.0 

112611.0 

1.2206+95 

5841.01 3P 

4P 68 

4P 6.16 

0.000 

2.0 

2.0 

112566.0 

1.5206+05 

5850.10 3P 

4P 6$ 

4P 6.16 

0.000 

6 . o 

4 . P 

112611.0 

4.0906+05 

5354.16 3P 

4P 68 

4P 6.1b 

0.000 

4.0 

2.0 

112566.0 

7. 6006+05 

5856.30 3P 

4P 68 

4P 6.16 

O: p fj f: 

6 ^ Q 

£ r. 

T 1 -7£00 f; 
4 * LUWu’ t v 

2.7306+05 

5816.48 3P 

4P 68 

4P 6.16 

0,000 

2.0 

4.0 

112611.0 

3.8306+05 

5834.70 3P 

4P 68 

4P 6.16 

4.0 


r, n. 

V * V 







2.000E-00 


50.3450 50.4845 70.414? 80.4029 91. 4802102. 6450114, 1854126. 5929139. 4852152.4/25 
2P2 2P 10.0 13223.0 2 

14.3833 17.4283 13.8355 22.3913 25.0733 27.7308 30.5354 33.5102 36.5228 29.3276 
2*3 2P 6.0 28840.0 3 

10.7261 12.755? 14.7642 16,8461 19.0311 21.2740 23,5879 25.9804 28.4602 31.0449 
38 4P 12.0 83*37.0 4 

0.10824 0.14752 0.23697 0.26552 0,48912 0.62636 0.76476 0.38044 0.97815 1.06603 
38 2P 6,0 86192.6 5 

0.57251 0,62050 0.6983? 0.80212 0.93876 1,09996 1.2942? 1,53794 1.8374? 2.19576 

~jp ">0 ~i fj O 7 


1 . ‘:?63b6 

1.4677? 1 

1 C -,C 
* b£._ 

<6 0.37645 

9,9239" 0 

.96122 1.06950 1, 

,24002 1.4617? 1 

3P 4D 

20 

r. 

94839.1 

6 



1.05955 

0.77406 0 

6997 

: 0 0.77693 

0,98798 ^ 

.29237 1.66691 2, 

,10084 2.58564 3 

3P 4P 

12 , 

0 

95511.0 

6 



0.73110 

0,57524 0, 

6407 

7 0.86056 

\ yl OQC 1 

,67044 2.19074 2, 

,77694 3.41460 4 


3P 48 4.0 96751.0 6 

0,36200 0.42576 0.71686 1.15835 1.74058 2.41411 3.15551 3.96379 4.82496 5.74892 
3? 20 10.0 96833.3 7 

0,41342 0,61759 1.04505 1.61261 2.31748 3.10171 3.9436? 4,35405 5.81C37 6.80454 
3P 2P 6.0 97793.0 7 

0.35486 0.70138 1.26041 1.94635 2.76504 3.65332 4.60796 5.625H 6.68812 , 73174 
39 2P 6.0 104628.0 10 

1.22846 1,20799 1.19387 1.19268 1.1979? 1.20949 1.23166 1.25979 1.296-25 1.33541 
3D 4F 28.0 104729.0 9 

1.13041 1.08153 1.04235 1.01831 1.00160 0.99135 0.99132 0.99667 1.00953 1.92493 
2D 2F 14.0 104851.9 10 

1.03191 0,95755 0,89959 0.85923 0.82926 0.80733 0.79565 0.7694? 0.78765 0,78916 
3D 4P 12.0 104919.2 9 

0,96095 5.8688? 0.79641 0.74266 0.70077 0.66753 0.64483 0.62693 0.61542 0.60672 
2D 4D 20.0 105009.6 9 

0.37619 0,7661? 0.68052 0.6156? 0.56494 0,52410 0.49403 0.46905 0.4502? 0.43456 
3D 2D 10.0 105134.9 10 

0.79730 0,67560 0.5-3413 0.54625 0.46390 0.4221? 0.29022 9.26218 0.33855 0.31677 


100 



4P 4S 
0.47355 0 
4P 25 
1.84682 1 
4P 4P 
0.84678 0 
4F 2P 
0.55142 0 
4P 40 
1.21316 0 
4 * 20 
0.53485 0 
40 4P 
1.28551 1 
4D 2P 
1.47525 1 
40 40 
1.3680b 1 
40 2D 
1.19683 1 
40 4F 
1.42140 1 
4D 2F 


0 !? r ' 

WV-v' 

4.0 107448.2 11 OF 

.35598 0.51316 0.83399 1.39825 2.06874 2 

2.0 106478.6 11 

.52740 1.30801 1.19701 1.14072 1.19556 1 

12.0 107016.1 11 

.69086 0.65501 0.77972 1.C6562 1.47666 1 

6.0 107500.0 11 

,48466 0.68684 1.04662 1.64936 2.35250 3 

20.0 106825.2 11 

.91712 0.80209 0.83737 0.99659 1.28235 1 

10.0 107400.0 11 

.49868 0.74309 1.14770 1.80771 2.56768 3 

12.0 110372.7 13 

.45051 1.43460 1.37394 1.30755 1.24393 1 

6.0 110229.3 13 

.80357 1.88780 1.88361 1.85258 1.32430 1 

20.0 110299.1 13 

.61288 1.63972 1.60336 1.55181 1.50685 1 

10.0 110461.6 13 

.28367 1.23193 1.15531 1.08135 1.01376 0 

28.0 110253.3 13 

.71836 1.77635 1.75952 1.72129 1.68863 1 


14.0 110346.4 


13 


1.34562 1.55202 1.56158 1.51783 1.46295 1.41222 1, 
4F 40 20.0 110486.0 14 

0.59599 0.34209 0.21550 0.14091 0.09787 0.07984 0. 
4F 20 10. C 110486.0 14 

0.59599 0.34209 0.21550 0,14091 0.09787 0.07984 0, 
4F 4F 28.0 110486.0 14 

0.59599 0.34209 0.21550 0.14091 0.03787 0.07984 0. 
4F 2F 14.0 110486.0 14 

0,53599 0.34209 0.21550 0.14031 0.0378? 0.07984 0. 
4F 4G 36.0 110486.0 14 

0.59599 0.34203 0.21550 0.14091 0.0978? 0.07984 0. 


.76358 3.49013 4.20755 4.95729 
.32739 1.50479 1.71191 1.95340 
.94898 2.45514 2.97381 3.52872 
.07920 3.32380 4.56096 5.32764 
.63961 2.03614 2.45246 2.90572 
.34904 4.14407 4.92810 5,74110 
.1965? 1.14829 1.10732 1.06982 
.79653 1.7640? 1.73464 1.70579 
.46644 1.42682 1.39332 1.36255 
.95158 0.89426 0.84299 0.79389 
.65912 1 .62785 1.60149 1.57710 
.36419 1.31651 1.27330 i. 23105 
.05778 0.04376 0.02591 0.03233 
.05778 0.04376 0.03591 0.03233 
.05778 0.04376 0.03591 0.03233 
.05778 0.04376 0.03591 0.02233 
05778 0.04376 0.03591 0.03233 


4F 2G 

13. 

,0 110486.0 


14 



0.59599 

G. 34209 0. 

,21550 0.14091 0.0978? 0.07984 

0.05778 0.04376 0.03591 

0.05 

0.10 

0.15 

0.20 

0.25 

0 . 30 


10000. 

-0.148 

-0.202 

-0.214 

-0.19? 

-0.158 

-0.087 

12000, 

-0.141 

-0.192 

-0,201 

-0.183 

-0.142 

-0.068 

14000. 

-0.135 

-0.182 

-0.189 

-0.168 

-0.125 

-0.051 

16000. 

-0.123 

-0.172 

-0.177 

-0.154 

-0.110 

-0.033 

18000. 

-0.121 

-0.162 

-0.165 

-0.141 

-0.094 

u . 0 -L 7 

OXYGEN 

16.0 

109837. 

109 

15 5 




9. 

78. 

5. 


3. 

76795. 

15. 


4. 

0. 

10 . 


10. 

165990. 



7.S40E-04 

0.380 

C f; 

3.0 

7.840E-04 

0.380 

3.0 

3.0 

7.840E-04 

0.380 

1.0 

3.0 

4.990E-04 

0.305 

5.0 

7.0 

4.990E-04 

0.305 

3.0 

5.0 

4.99GE-04 

0.305 

1.0 

3.0 

4. 990 E -04 

0.305 

5.0 

5.0 

4.390E-04 

0.305 

•3 n 

w t 

3.0 


15868. 

S6629. 

26820. 


1 . 

Q 

j . 
6. 


33792. 
88631 , 
40468. 


76795.0 2.100E+08 1202, 

76795.0 1 . 300E+08 1304. 

76795.0 4.100E+0? 1306, 

101135.0 2.300E408 988, 

101147.0 1.700E+08 990. 

101155.0 1.200E+08 990. 

101147.0 5.800E407 988. 

101155.0 9.500E+Q7 990. 


j . 
1 0 


17 2P4 3P 
87 2P4 3P 
04 2P4 3P 
78 2P4 3P 
21 2P4 3P 
SO 2P4 3? 
66 2P4 3P 
13 2P4 3P 


737 68. 
95476. 


3S 33 1.5. 
33 33 1. 5. 
33 38 1. 5. 
33' 3D 1.11. 
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3,0 

3.1606-01 

7 1 655E-02 


*% 

r 

8.0 

3.160E-01 

5. 7006-02 

16.0 

8.0 

3. 1606-01 

3,7056-02 


1 7 

- / 

» V 

C; t ft 

3.1606-01 

2.14GE-02 

18.0 

S.O 

3.150E-01' 

' , 4 45£-0*' 


-7 

f: ‘ 

• c 

Q i* 

J « s. 

2.160E“!Jl 

1.000E-04 

4.0 

9.0 

3.I60E-01 

c gnftr-np 


c. 

r U 

3.0 

C ' CpST-fil 

LMiDVk VA 

7.3306-02 

6,0 

9.0 

3.160E-01 

2.6706-01 


7 


3,0 

•i J . qr;u_n-! 

t liPllL 1,1 

“’.7706-02 

p ft 

a n 

v t U 

3.16DE-01 

1,0038-01 


C< 

r. 

9.0 

3.1606-01 

8. 2506-03 

10.0 

3.0 

3.1606-01 

9.2506-02 


1 *. 

( n 

9,0 

3. 1696-01 

5.5856-02 

1 9 f( 

9,0 

3. 1606-01 

2.4O0E-O3 


i w : 

ft 

r L? 

C? ft 

3.1606-01 

\ AC'.r -•-» 

i. f w'Wk i. l.‘il 

• A fj 

x n , U 

8,0 

3.1606-01 

5. 2556-02 


1 C - 

( r 

a n 

./ I V 

0 

V » t- V U Vi 

6,8606-02 

16.0 

q ft 

3, 1606-01 

£.1706-02 


1 7 


G ft 

q ( a cpr_ni 

4 , 5056-02 

* O ft 

9.0 

3.1606-01 

P o/ftr-ftp 
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ORIGINAL PAGE 1$ 
OF POOR QUALITY 


4,0 10,0 3.160E-01 3.5G0E-C4 5.0 10.0 3.160E-Q1 1.070E-02 


£.0 

10.0 

3.160E-G1 

3,0 

10.0 

3.150E-01 

10.0 

10.0 

3.160* -01 

12.0 

10.0 

3.160E-G1 

14.0 

10.0 

3.160E-C1 

16.0 

10.0 

3.160E-01 

ion 

aOi J 

10.0 

3.160E-01 

6,0 

* * f\ 

El .L 

3.160E-01 

n ^ 
o t y 

11.0 

3.160E-01 

in n 

11 .0 

3.1SGE-Q1 

n 

1C • V 

11.0 

3.160E-01 

14.0 

11.0 

3.160E-31 


16.0 11.0 3.160E-01 


1.107E-01 7.0 10.0 3.160E-01 2.723E-01 
3.205E-92 3.0 10.0 3.16QE-01 1.242E-51 
2.500E-04 11.0 10.0 3.160E-01 6.780E-02 
7.205E-02 13.0 10.0 3.160E-01 1.425E-02 
3.500E-03 15.9 10.0 3.160E-01 3.275E-92 
5.760E-02 17.0 10.0 3.160E-01 6.145E-02 
5.065E-02 5.0 11.0 3.160E-01 6.50QE-04 
1 . 765E-02 7.0 11.0 3.160E-01 1.432E-01 
2.696E-91 3.0 11.9 3.160E-01 6.450E-0? 
1.297E-91 11.0 11.0 3.160E-01 3.750E-G3 
3.975E-02 13.0 11.0 3.160E-01 7.635E-02 
3.125E-02 15.0 11.0 3.160E-01 7.5C0E-04 
1.575E-02 17.0 11.0 3.160E-01 4.290E-Q2 



SECTION 5. FLOW DIAGRAM 
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SECTION 6. TYPICAL INPUT DECK 



Ur-'C’H i E . f , 

CFT , ~$-CFL . L~0 . 


-i- l '*) K| HU I-1 4 
/EOF 

1 1 0 C 0 0 1 

1 , rs r? r? c — »■; n n n p n 
4 . 3 1 E 4- 0 C 4 . £ £ £ F 4- 0 Q 

/ CT !'*; c 


I . 160E-Q2 
150 2 



4 . 2 fc y E - 


00 3E+QQ 5 . 0 0 0 E+ 


4 


1 . 400E+04 1 
1.000E+03 1 


200E+04 
0 0 0 E4-Q 4 


450 


Q p 

O ^ 

•O 'T3 

C 


M 





SECTION 7. TYPICAL OUTPUTS 


NMETH(0=NO RAT>i\TION. 1 =RAI) I AT I <M) = 1 

NF INI (EXCITATION DATA INPUT FILE) =1 

NF I N2 (RADIATION DATA INPUT FILE) = 2 

NFOUT( OUTPUT FILE) = 6 

NPRT1 (PRINT CONTROL FOR BASIC DATA) = 1 

NPRT2( PRINT CONTROL FOR OUTPUT) = 1 

NEKRO'T LE NUMBER OF ERROR MESSAGES) = 6 

N ARRAY ( LENGTH OF RADIATION ARRAYS) = 15000 

NCASE( NUMBER OF CASES) = 1 

NSAVFMFILE TO SAVE SPECTRAL OUTPUT) = 3 

NFLOT(0=NO PLOT. 1=PL0T) = 1 


rv> 

vo 


5 

£D 


WAVELS ( SHORT WAVELENGTH LIMIT IN A) = 2000.0 

WAVELL(LQNG WAVELENGTH UNIT IN A) = 15000.0 

STARK (STARK WIDTH FOR MOLECULES, IN A)= 0.3000 

WIDTE L; . ! . - wtisiiA iiuL,i ul. FOR) - i v* . 000 

D(PHV. . CAL DEPTH, CM) = 10.000 

U.V. LINE ESCAPE FACTORS= 1 .O00E-03 1 . O00E-02 I.00OE-01 
U.V. LINE ESCAPE FACTORS= 1.00OE-03 I.000E-02 1.000E-01 


ESCAPE FACTORS = 
ESCAPE FACTORS = 


1 .0O0E-O3 1.00OE-02 1.00OE-O1 
1.000E-O3 1 . 000E-02 1 . 000E-01 


U.V. CONT. 

U.V. CONT. 

RADIATION STRENGTH MULTIPLICATION FACTORS= 1.00 1.00 1.00 1.00 1.00 1.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 
RADIATION STRENGTH MULT I PL I CAT I ON FACTORS = 0.00 0.00 0.00 0.00 
RADIATION STRENGTH MULTIPLICATION FACT0R3= 1.00 I . 00 1 0 . 001 0 . 00 0.01 
RADIATION STRENGTH MULTIPLICATION FACTORS= 1.00 0.00 0.00 0.00 
RADIATION ESCAPE FACTORS FOR MOLECULES 


1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00 1.00 


1.O90E+00 1.000E+00 1.OO0E+00 1 . O0OE+00 1.O00E+QO 

1.O0OE+O0 1.000E+G0 1.000E+00 1.000E+00 I.000E+OO 

1.000E+00 1.000E+00 1.000E+00 1 .000E+O0 1 .000E+0O 

1.G90E+O0 1.O00E+00 1.000E+O0 1.000E+00 1.000E+0O 

1.00OE+00 1 . 000E+OO 1.000E+O0 1 .0O0E+00 1.00OE+O0 

1.O00E+00 1.000E+OO 1.G00E+00 1.000E+0O 1 . 000E+C0 
1.Q00E+00 1 . 0002+09 1.0002+90 
1 . 000E+00 1 .00OE+OO 1 .0002+00 


T~\ 1 . 000E+00 

fV' 1 . ©00E+C0 
'C7^ 1 . ©0GE+00 


O 

2 

r— 

r- 

~< 

03 
l — 
3 * 

2 


1.OO0E+O0 1.00OE+O0 1 .000E+00 
1 . ©00E+00 1.000E+O0 1.00OE+O0 
l.OOGE+GO l.OOOE+OO 
l.COOi'S-GO 1 .O0CE+90 
1.OG0E+00 1.O00E+O0 1.0O0E+00 
1 .©0OE+00 1.O00E+O0 1 .O00E+00 
1.000E+90 1.000E+G0 1.000E+00 
1 .©00E+00 1 .000E+G0 I . 0OOE+Q0 

i.gooe+go i.eeoE+oe 1.0002+00 

1 .OO0E+GQ 1.0903*39 1 .0002+00 


000E+90 

0O0E+O0 

000 S +00 

000E+00 

900E+OO 

000E+00 

000E+O0 

00GE+00 

0002*00 

000E+00 


OO0E+OO 
000E+00 
0002+00 
009E+00 
000 E +00 
900E+00 
000E+0O 
000E+00 
000E+00 
00OE+0O 


000E+00 1 . 00OE+00 


1 .999E+99 1 . 000E+00 


1 . ©00E+O0 1.000E+00 1.000E+00 1 . 000E+00 1 . 000E+0O 
1.0OOE+00 1.000E+00 1.O0OE+09 1 .0O0E+00 1.090E+O0 
1 . 090E+O0 1.000E+GO 1 . OO0E+00 
1 .©00E+9Q 1 .0002+00 


1.000E+00 1 . 0O0E+00 
1.000E+3G 1. 0002+00 I .0002+00 1.000E+O0 1.000E+00 
1.090E+00 1.000E+0O I .0002+00 1.000E+00 1 .000E+0O 
1.OO0E+09 1.000E+0O I .0002+09 1.000E+00 1 .0O0E+00 
1 .000E+G0 1 .0002+00 I.0O0E+00 1 
T( HEAVY PARTICLE THVNSL. AND ROT 
TV (VIBRATIONAL TEMPERATURE) 

TE ( El. EC I RON TEMPERATURE ) 

TARB( ARBITRARY EQUILIBRIUM TEMPEATURE ) = 9650.0 

ANT0T0( INITIAL TOTAL NUMBER DENSITY )= 8.013E+16 


000E+O0 1 . 000E+00 
T) = 18000.0 
= 14000.0 
= 12000.0 


JL= 

JL= 

JL= 

JL= 

JL= 

JL= 

JL = 

•JL= 

JL= 

JL= 

JL= 

JL = 

JL= 

JL= 

JL= 

JL= 

JL= 

JL= 

JL= 

JL= 

JL = 

JL= 

JL= 

JL= 

JL= 


I B = 

I B = 

I B = 
IR = 

I B = 

I B= 

I B= 

I B= 

I B= 

I B= 2 
I H = 3 
I B= 3 
I B= 3 
I B= 3 
I B= 3 
I B= 4 
IB = 

I B= 
IB = 

I B = 

I B= 

I B = 

I B = 

I B= 

I B= 


O 

"SI 



NUMBER DENSITY FRACTIONS OF SPECIES 

N= 4.813E-01 N+= 3.435E-02 0= 1 .783E-01 0+= 6.204E-03 NE= 4.269E-02 N2+ = 6.188E-04 N2= 2.143E-01 NO= 3.O32E-02 

02= 1.160E-02 CN= 1 .000E-10 C= 1 .000E-10 

PRESSURE 2 1 . 965E-01 ATM DENSITY 2 2.325E-06 G/CM3 ENTHALPY 2 4.571E+11 ERG/G 


NITROGEN 
ION: C 2 

EION= 

9.0 

I 17345.0 
5.0 

CM-1 
1 .0 

5.0 

E= 

100.0 

15315.0 

32687.0 47168.0 

OXYGEN 
ION: G= 

El ON 2 
4.0 

109837.0 

10.0 

CM-1 

6.0 

12.0 

E= 

0.0 

26310.0 

40467.0120000.0 


MOLECULAR 
NUMBER OF 
NUMBER OF 
NUMBER OF 
NUMBER OF 
DEGEN 


BAND NAME=N2+ MOLECULAR WEIGHT 2 28.010 
ELECTRON- I HP ACT DISSOCIATION CROSS-SECTION SET 2 
ELECTRON- IMPACT EXCITATION CROSS-SECTION SET 2 
ELECTRONIC LEVELS 

LEVELS IN OUAS I -STEADY-STATE CALC. 2 

TERM WE WEXE WEYE WEZE 


4 
6 

5 
4 


BE 


ALPHA 


MOLECULAR BAND NAME=N2 MOLECULAR WEIGHT 2 28.010 

NUMBER OF ELECTRON- IMPACT DISSOCIATION CROSS-SECTION SET 2 4 
NUMBER OF ELECTRON- IMPACT EXCITATION CROSS-SECTION SET 2 6 
^ NUMBER OF ELECTRONIC LEVELS = 5 

o NUMBER OF LEVELS IN OUAS I -STEADY-STATE CALC. 2 4 

DEGEN TERM WE WEXE WEYE WEZE BE 


ALPHA 


MOLECULAR BAND NAME 2 NO MOLECULAR WEIGHT 2 30.010 

NUMBER OF ELECTRON- IMPACT DISSOCIATION CROSS-SECTION SET 2 3 
NUMBER OF ELECTRON- IMPACT EXCITATION CROSS-SECTION SET 2 3 
NUMBER OF ELECTRONIC LEVELS = 6 

NUMBER OF LEVELS IN OUAS I -STEADY-STATE CALC. 2 3 

DEGEN TERM WE WEXE WEYE WEZE BE 


ALPHA 


MOLECULAR BAND NAME 2 02 MOLECULAR WEIGHT 2 32.000 

NUMBER OF ELECTRON- IMPACT DISSOCIATION CROSS-SECTION SET 2 
NUMBER OF ELECTRON- IMPACT EXCITATION CROSS-SECTION SET 2 
NUMBER OF ELECTRONIC LEVELS 

NUMBER OF LEVELS IN OUAS I -STEADY-STATE CALC. 

DEGEN TERM WE WEXE WEYE WEZE 


0 

0 

5 

0 


BE 


ALPHA 


MOLECULAR BAND NAME=CN MOLECULAR WEIGHT 2 26.020 

NUMBER OF ELECTRON- I MP ACT DISSOCIATION CROSS-SECTION SET 2 3 
NUMBER OF ELECTRON- I MPACT EXCITATION CROSS-SECTION SET 2 3 
NUMBER OF ELECTRONIC LEVELS = 3 

NUMBER OF LEVELS IN OUAS I -STEADY-STATE CALC. 2 3 


DECEN TERM WE WEXE WEYE WEZE BE ALPHA 

N: EXCITATION TEMPERATURE 2 9607.6 DENSITY MULTIPLICATIVE FACTOR 2 2.186E-02 

0: EXCITATION TEMPERATURE 2 9278.2 DENSITY MULTIPLICATIVE FACTOR 2 1 . 609E-02 



N H r 

NUMBER DENSITIES OF ELECTRONIC STATE = 2.517E+13 2.260E+13 1.055E+12 7.419E+1I 5.993E+07 CM3 
ELECTRONIC EXCITATION TEMPERATURE = 12000.0 11999.5 11999.0 11985.4 16969.7 IC 

N2 

NUMBER DENSITIES OF ELECTRONIC STATE = 1.711E+16 3.815E+13 1 .433E+13 1.519E+12 4.641E+07 CM3 
ELECTRONIC EXCITATION TEMPERATURE 3 12000.0 8774.6 8993.8 9294.9 11767.7 K 

no 

NUMBER DENSITIES OF ELECTRONIC STATE 3 2.425E+15 2.651E+10 4.248E+12 1 .G0OE+10 1 .©00E+1© CM3 
ELECTRONIC EXCITATION TEMPERATURE = 12000.0 6135.8 8835.5 12000.0 12000.0 IC 

02 

NUMBER DEWS IT' ’NS OF ELECTRONIC STATE 3 1 .000E+10 1 .00OE+10 1 .000E+J<d l.GOOE+l© 2.747E+07 CM3 
ELECTRONIC E^QTAT 1 OR TEMPERATURE 3 12000.0 12000.0 12000,0 12000.0 5909.1 K 


o n 

.“yj $ 
"0 r-i 
O -j 
o ■ " 


O r 


MOLECULAR BAND NAME=N2+ 1- MOLECULAR WEIGHT- 28.010 

NDEX= 1 NO. OF BARDS = 94 NO. OF LEVELS = 4 MOLECULE N0.= 0 ORDER 3 0 


MOLECULAR BAND NAME=N2+ 1- MOLECULAR WEIGHT 3 28.010 

NDEX= 1 NO. OF BANDS 3 94 NO. OF LEVELS = 4 MOLECULE N0.= 0 ORDER 3 0 


MOLECULAR BAND NAMG=N2 1+ MOLECULAR WEIGHT- 28.010 

NDlfi?i= 2 NO. OF BANDS = 94 NO. OF LEVELS 3 10 MOLECULE N0.= 0 ORDER 3 0 


MOLECULAR BAND NAM E=N2 1+ MOLECULAR WEIGHT 3 28.010 

NDEX= 2 NO. OF BANDS 3 94 NO. OF LEVELS 3 10 MOLECULE NO. 3 0 ORDER 3 O 


CN 

NUMBER DENS IT l €S OF ELECTRONIC STATE 3 4.319E+06 3 . 527E+06 1.653E+08 1 .©00E+10 1 .000E+10 CM3 
ELECTRONIC EXCITATION TEMPERATURE 3 12000.0 11654.9 11556^8 12000.0 12000.0 IC 

DENSITY MULTIPLICATIVE FACTOR 3 5.826E+00 5.826E+00 1 . 540E+O0 1 . 540E+00 2.648E+01 

1.660E+00 1 . 660E+00 1 . 660E+00 1 . 660E+G0 1.660E+09 
1 . 236E+00 1.236E+O0 1 .236E+00 6.314E-G2 6.314E-02 
2 . 744E-02 2 . 744E-02 5.O53E+00 3.455E+0© 3.455E+00 



EXCITATION TEMPERATURE 3 11999.0 

1 1 999 . 0 

8993.8 

8993.8 

11767.7 


9294.9 

9294 . 9 

9294.9 

9294.9 

9294.9 

uo 

8835.5 

8835.5 

8835.5 

6135.8 

6135.8 


5909.1 

5909.1 

11556.8 

11654.9 

1 1 654 . 9 


BASIC ATOM DATA 

NAME=Nf TROG ATOMIC WEIGHT 3 14.007 IONIZATION POTENTIAL 3 117345.0 CM-1 

NUMBER OF LINES , BOUND-FREE CONTINUUM, AND FREE 3 FREE CONTINUUM PARAMETERS 3 179 35 1 


BASIC ATOM DATA 

NAME 3 OX V GEN ATOMIC WEIGHT 3 16.000 IONIZATION POTENTIAL 3 109037.0 CM-1 

NUMBER OF LI NES , BOUND-FREE CONTINUUM, AND FREE 3 FREE CONTINUUM PARAMETERS 3 109 15 5 
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MOLECULAR 
NDEX 3 1 

BAND NAME=N2 2+ 
NO. OF BANDS 3 74 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 2 

BAND NAME=N2LBH 
NO. OF BANDS = 98 

MOLECULAR WEIGHT= 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. 3 

0 

ORDER 3 O 

MOLECULAR 
NDEX 3 2 

BAND NAME=N2LBH 
NO. OF BANDS 3 96 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 2 

BAND NAME=N2BH1 
NO. OF BANDS 3 92 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. = 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NAME=N2BII2 
NO. OF BANDS = 92 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NAME=N2BH2 
NO. OF BANDS = 96 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 10 

28.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX= 1 

BAND NAME 3 NO B 
NO. OF BANDS = 96 

MOLECULAR WEIGHT 3 
NO. OF LEVELS = 6 

30.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NAME=NO B 
NO. OF BANDS = 94 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 6 

30.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NANE=NO B 
NO. OF BANDS 3 46 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 6 

30.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 3 

BAND NAME 3 NO G 
NO. OF BANDS = 98 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 6 

30.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 3 

BAND NAME=NO G 
NO. OF BANDS= 98 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 6 

30.010 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NAME =02 SR 
NO. OF BANDS = 96 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 5 

32.000 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX 3 1 

BAND NAME =02 SR 
NO. OF BANDS= 96 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 5 

32.000 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX= 1 

BAND NAME=CN VIO 
NO. OF BANDS = 70 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 3 

26.020 

MOLECULE 

NO. 3 

0 

ORDER 3 0 

MOLECULAR 
NDEX= 3 

BAND NAME=CN RED 
NO OF BANDS 3 86 

MOLECULAR WEIGHT 3 
NO. OF LEVELS 3 3 

26.020 

MOLECULE 

NO. 3 

0 

ORDER 3 0 



Mf>I 1<CUT AR BAND NAME=CN RED MOLECULAR WEI GUT = 26.020 

NDEX- 3 NO OF BANDS= 96 NO. OF LEVELS^ 3 MOLECULE NO.= 0 01 

GLOBAL POWER EMISSION. TOTAL" 2.36487E401 ABOVE 2B00 A- 2.364B7E+01 

GLOBAL TOwV’emIsSIOH. TOTAL" 2.37468E+01 ABOVE 2500 A" 2.37456E+01 

GLOBAL POWER railllOB. TOTAL" 2.672O8E401 ABOVE 2500 A= 2.67196E401 

GLOBAL JSS^aiSS.. TOTAL" 2.67402E+0I ABOVE 2500 A" 2.67387E+01 

GLOBAL POWER KM SSI ON. TOTAL" 3.03269E+01 ABOVE 2509 A" 3.03255E+01 

GLOBAL POWER EMISSION. TOTAL" 3.07642E+01 ABOVE 2500 A" 3.07628E+01 

wo i 4 . Hi 1 T N f SHFJ) 

GLOBAL POWER EMISSION. TOTAL = 3.I53I9E+01 ABOVE 2500 A= 3.15305E+01 

GLOBAL POWER EMISSION. T0TAL= 3.16307E+01 ABOVE 2500 A= 3.16292E+01 

N*? ° E INI SUED 

GLG5AL POWER El'll SSI ON. TOTAL = 3 . 1 6828E+0 1 ABOVE 2500 A= 3.16813E+01 

GLOBAL POWER EMISSION. T0TAL= 3.16328E+01 ABOVE 2500 A= 3.16813E+01 

GLOBAL POWER EMISSION. TOTAL = 3.I683OE+0I ABOVE 2500 A= 3.I68I3E+0I 

GLOBAL POWER EMISSION . TOTAL = 3.16830E+01 ABOVE 2500 A= 3.16O13E+01 

GLOBAL PSKSIO, TOTAL = 3.17215E+01 ABOVE 2500 A= 3.16828E+0| 
uj N2BH2 FINI SuijD . » i 

^ GLOBAL POWER MISSION. TOTAL = 3.17245E+01 ABOVE 25O0 A= 3.16828EW 

GLOBAL POWER EMISSION. TOTAL= 3.34358E+01 ABOVE 2500 A= 3.27552E+01 

GLOBAL POWER EMM SS I ON . TOTAL = 3.383I6E+01 ABOVE 2500 A= 3.31485E+01 

GLOBAL POWER EMISSION. T0TAL= 3.38653E+0I ABOVE 2500 A= 3.31822E+01 

GLOBAL POWER*" EMISSION. TOTAL = 3.39178E+01 ABOVE 2500 A= 3.31900E+01 

GLOBAL POWfA S EM?SSION. TOTAL= 3.39237E+0I ABOVE 2500 A= 3.31935E+01 
<"p FINISHED 

GLOBAL POWER* EMISSION. TOTAL- 3.3950OE+O1 ABOVE 2500 A= 3.32168E+01 
no op FI NI^HFl) 

GLOBAL POWER EMISSION. TOTAL= 3.39686E+01 ABOVE 2500 A= 3.32279E+01 


>>>>> POINTS OUT OF RANGE. THEY WILL BE IGNORED. 

>>>>> I X(I> Y(I) 

>>>>> 2 2.0000E+94 O.O0OOE+00 

I MAV= 984 V 

END OF DIS&PLAaO.O — 993 VECTORS GENERATED IN 1 PLOT FRAMES . 

PROPRIETARY SOFTWARE PRODUCT OF ISSCO, SAN DIEGO, CA. 

0 VIRTUAL STORAGE REFERENCES; 1 READS; 0 WRITES. 


>ER= 0 


ABOVE 3500 A= 2.36487E+01 W/CM3 
ABOVE 3500 A- 2.37416E+01 W/CM3 
ABOVE 3500 A= 2.67156E+01 W/CM3 
ABOVE 3500 A= 2.67341E+0I W/CM3 
ABOVE 3500 A= 2.89483E+01 W/CM3 
ABOVE 3500 A= 2.9I468E+01 W/CM3 
ABOVE 3500 A= 2.99146E+01 W/CM3 
ABOVE 3500 A= 3.O0133E+O1 W/CM3 
ABOVE 3500 A= 3.O0269E+01 W/CM3 
ABOVE 3500 A= 3.00269E+01 W/CM3 
ABOVE 3500 A- 3.OO269E+01 W/CM3 
ABOVE 3500 A= 3.00269E+01 W/CM3 
ABOVE 3500 A= 3.0O269E+01 W/CM3 
ABOVE 3500 A= 3.00269E+01 W/CN3 
ABOVE 3500 A= 3.01866E+0I W/CM3 
ABOVE 3500 A= 3.04594E+01 W/CM3 
ABOVE 3500 A= 3.04929E+01 W/Ci'13 
ABOVE 3500 A= 3.04930E+0I W/CM3 
ABOVE 3500 A= 3.04930E+01 W/CM3 
ABOVE 3500 A= 3.05032E+01 W/CM3 
ABOVE 3500 A= 3.05063E+01 W/CM3 
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